Select Code to Download

#!/usr/bin/perl

...
my $outputfile = <STDIN>;
chomp($outputfile);
print "User input: $outputfile\n";

pp -o inputtest inputtest.pl

Please enter an output file name: testfile.txt
User input: testfile.txt