Select Code to Download

  $mw->after(1, sub {&startup()});
  MainLoop;

#!/usr/bin/perl
use warnings;
...
}
__END__