Select Code to Download

#!/usr/bin/perl

...

print "Write Successfully Completed\n"

use Locale::Currency::Format;
use Data::Random qw(:all);
...

print "Search for a name: ";
my $userinput = <>;