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