use Tk;
$top = new MainWindow;
for my $pixmap (qw(
act_fold
file
folder
info
minus
minusarm
no_entry
openfold
plus
plusarm
srcfile
textfile
warning
         )) {
    $top->Label(-image => $top->Getimage($pixmap))->pack;
}
MainLoop;