print "Please enter the output filename:\n";
my $filename = <STDIN>;
$filename =~ s/\s*$//; # remove newline and other whitespace at the end