A couple of comments.

Firstly, I'd just like to point out that if the script has a syntax error, the window will still disappear. If this is a problem, it can be dealt with using the alternate method suggested by BrowserUk at Re: Small Problem with running Perl Scripts in Windows. His method has a side-effect of dropping to the command line when the script is done, instead of just prompting before closing the window.

Secondly, my preference is to be able to press any key, not just enter, to close the window. The following slight modification is what I installed on my system: 

=head1 NAME

ouse.pm

=head1 SYNOPSIS

    perl -Mouse file.pl

=head1 DESCRIPTION

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.

=head1 AUTHOR

tye

http://perlmonks.org/index.pl?node_id=162087

=cut

END {
  eval " use Term::ReadKey; ";
  unless($@) {
    print "Press any key to close...";
    ReadMode(3);
    ReadKey();
    ReadMode(0);
  } else {
    print "Press ENTER to close: ";
    <STDIN>;
  }
}

1;

[download]

But definitely, ++tye. :)

bbfu
Black flowers blossom
Fearless on my breath

In reply to Re: -Mouse by bbfu
in thread -Mouse by tye

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.