Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl -T
use warnings;
...

print "ARGV: " . ( tainted( @ARGV ) + 0 ) . "\n";
print "ARGV[0]: " . ( tainted( $ARGV[0] ) + 0 ) . "\n" if defined $ARG
+V[0];

Select or download this
```
ARGV: 0
ARGV[0]: 1
```