Use correct index for $ARGV

Forgot that Perl stores script name in $0 rather than $ARGV[0]