#!/usr/bin/perl -ws

use strict;
use vars qw( $size $shape );

print "A $shape of size $size\n";
[download]

Or just give them their full names...:



#!/usr/local/bin/perl
use strict;

$::e && $main::f && print "wabbit";
[download]

for example.

use strict;
use Getopt::Std;

my $file;

usage() unless ($ARGV[0]);

my %opts;
getopts ('h?',\%opts);

usage() if (exists($opts{h}));
usage() if (exists($opts{'?'}));
[download]

This is a sweet module, use it.
TGI says moo

And if you really don't know which variables might be initialized:

where toto is:

#!/usr/bin/perl -ws
use strict;

{ # you can use -s defined variables here
  no strict 'vars';
  print $var;
}
[download]

Just note that generally -s and use strict; don't go well together. -s should really be used only for throw-away scripts, if not just deprecated, while use strict would be used for everything else. If you use strict you should also use "clean" alternative to -s such as one of the various Getopt::* modules.

This was all covered quite recently in this thread.

"Perl makes the fun jobs fun
and the boring jobs bearable" - me

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

use strict;

die "Usage: $0 <yyyymmdd> [1 7177 201 201 -a]\n
This program will do XYZ, based upon your number. Use -a (this is your
+ switch) to choose all\n" unless @ARGV ==2;

if ($ARGV[1] eq "-a") {
print "Hey, I'm a switch!\n";
}
# and so on........
[download]