I thought "display a DICOM(.dcm) image", like I can display a JPEG,GIF,PNG, in Tk.
For example, display a JPEG image:
use Tk;
use Tk::JPEG;
my $main = new MainWindow;
my $canvas = $main ->Canvas;
$canvas->pack;
my $image = $canvas->Photo('-format' => 'jpg'...