I assume that you want to run the program on a user-specified file instead of the hardcoded file?

Command line parameters are available in the @ARGV array, see perlvar.

You can read user input from STDIN, like my $filename = <STDIN>;

Once you have the filename, modify the open statement to use a filename instead of opening a here-document.