Select Code to Download

#!/usr/bin/perl -w -- 
  use strict;
  use warnings;
...
    # remove message from the queue
    return 1;
  }

#!/usr/bin/perl -w -- 

use Wx 0.15 qw[:allclasses];
...
    $frame_1->Show(1);
    $app->MainLoop();
}