perl -le 'print defined($ARGV[0])?"defined":"undefined"'