$encoded_pic = encode_photo_data("up.bmp");
my $pic = $top->Photo(-data=>$encoded_pic);

##</code><code>##

my $pic = $top->Photo(-data=>encode_photo_data("up.bmp"));