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