programming-examples/perl/GUI/Using buildin bitmap- gray25.pl

use Tk;

my $main = MainWindow->new;

$main->Label(-bitmap => 'gray25')->pack;

MainLoop;