GUI Perl

  1. Home
  2. Perl
  3. GUI
  4. Using buildin bitmap
use Tk;
my $main = MainWindow->new;
$main->Label(-bitmap => 'warning')->pack;
MainLoop;