Using buildin bitmap: gray25
use Tk; my $main = MainWindow->new; $main->Label(-bitmap => 'gray25')->pack; MainLoop;