my (@input) = ();
print $prompt;

chomp @input;