http://qs321.pair.com?node_id=162087
Description:

Convenient way to launch Perl scripts via the Win32 GUI.

Perfect for running Obfuscated Code with just a couple of mouse clicks.

# ouse.pm
# Instructions:
#    Install in your perl/lib or perl/site/lib directory
#    in a file named "ouse.pm".  Then enter the following
#    commands:
#        assoc .pl=Perl
#        ftype Perl=perl -Mouse "%1" %*
#    Then clicking on a *.pl file will cause the script to
#    run in a new window but the window will (usually)
#    not close when the script finishes.

END {
    print "Press ENTER to close: ";
    ''.<STDIN>
}

1;