use Tk;
my $mw = MainWindow->new;
my $mycanvas = $mw->Scrolled("Canvas",-width=>800, -height=>600, -scrollbars=>'se');

my $headerpicpath = $Bin."logo.gif";
my $pic = $mw->Photo(-file=>$headerpicpath);
$mycanvas->createImage(425,400,-image=>$pic);