Select Code to Download

my $prompt = q{Enter name (<Ctrl-D> to exit) : };
my $dePrompt
...

}
print $dePrompt;