I believe the problem is that you need to use $ARGV[0]. Remember that counting in perl starts with 0. So the first element in an array would be the 0'th arguement.

#!/usr/bin/perl -w

print $ARGV[0] . "\n";
[download]

on my command line, this works