my $argument = $ARGV[0] || (print( "Parameter? "), (<>)[0]);
chomp $argument;