Select Code to Download

die "some trouble is brewing\n"  if length($ARGV[0]) > 2;

...
$delim = eval '"' . $ARGV[0] . '"';

print "Field1" . $delim . "Field2" . $delim . "Field3" . $/;