use Tk;

my $top = new MainWindow;

my $pic = $top->Photo(-file=>"up.bmp");
$top->Button(-image=>$pic)->pack();

MainLoop();