my $prompt = 'Prompt: ';
print $prompt;
chomp( my $var = <STDIN> );