my $count = @ARGV;
print $count;

##</code><code>##

if (@ARGV < 3) {
        die "use: script var1 var2 var3\n";
} else {
        my ($var1, $var2, $var3) = @ARGV;
}
## then use $var1, $var2 and $var3 in your program

##</code><code>##

my ($stream, $path, $rturn, $depth, $display) = @ARGV;
$stream = \*STDOUT unless @_ > 0;
$path = cwd unless @_ > 1;
$rturn = 'all' unless @_ > 2;
$depth = -1 unless @_ > 3;
$display = 'rel_file' unless @_ > 4;

##</code><code>##

my $nextvar = shift @ARGV;

##</code><code>##

for my $this (@ARGV) {
       print "$this\n";
}

##</code><code>##

while (<>) {
           print "$_\n";
}