#!/usr/bin/perl

use strict;
use warnings;

print "Please enter an output file name: ";
my $outputfile = <STDIN>;
chomp($outputfile);
print "User input: $outputfile\n";

##</code><code>##

pp -o inputtest inputtest.pl

##</code><code>##

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