http://www.perlmonks.org?node_id=23394 

#!/usr/local/bin/perl -w
# Turn on warn so that errors won't trouble ya.
use strict if ( ! $AQuickHack );
# Keeps your program both safe and on track
$program =~ s/local/my/ if ( $version >= "Perl 5" )
&& print "Now you're not a Perl quack!";

[download]

Replies are listed 'Best First'.
RE: Tips
by BBQ (Curate) on Jul 21, 2000 at 19:05 UTC
    Dude, I'd vote twice or maybe three times on this one if I could! Quack!

    #!/home/bbq/bin/perl
    # Trust no1!
[reply]

Back to Perl Poetry