is this what you mean?

#!/usr/bin/perl

die("no arg!") unless $ARGV[0];
print "\$ARGV[0] = $ARGV[0]\n";
[download]

Ted