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