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