# method 1
use strict;
die "you must provide command-line parameters" if ! @ARGV;
print "command-line option: $_\n" for @ARGV;


# method 2
use strict;
use Getopt::Long;

GetOptions
(
    'useTR'         => \{ my $useTR = 0 },
);

unless ( defined $useTR ) {
    die "Usage: $0 -useTR";
}

# Then you use the $useTR variable onwards
[download]

Thanks I now understand that i will have to use Getopt::Long and GetOptions. Thanks again.

That's not how you use command line options.

Says who? What's the -s for then? Just because its usuage is rare doesn't mean it's not supported and that you have to roll your own @ARGV parsing.

Abigail

perl -wlseprint -- -_=Just\ another\ Perl\ Hacker
[download]

Thanks for the correction. I should have checked the perl usage more carefully. *blush*.