Simple Tk-Perl graphics viewer
#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::JPEG;
use Tk::PNG;
 
my $mw=MainWindow->new(-title =>"TkImage");
$mw -> bind('<Escape>' => \&exit);
$mw -> Label(-image => $mw->Photo(-file => $ARGV[0])) -> pack(-expand => 1, -fill => 'both');
MainLoop;
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License