Select Code to Download

use FileNamePrep qw( func1 func2 );
...
...
...
print "\nPlease enter the name of the copy destination.\n";
my $file2 = func2();

use FileNamePrep qw( promptFilename );
...
...
}

1;