#!/pkg/qct/software/perl/current/bin/perl -w 
use Tk;
use Tk::JPEG;
use Tk::Photo;

my $mw = MainWindow->new;
my $c  = $mw->Canvas;

my $image = $c->Photo(-file => '/usr2/nikhilg/final_proj/Floorplan.jpg', -format=>"JPEG");
print $image;
$c->createImage(100,100, -image => $image);


MainLoop;