#!/usr/local/bin/perl
use strict;
use warnings;

my $filename = shift;   # get the filename from the command line

open(my $fh, '<', $filename) or die "$filename: $!";

foreach my $line (<$fh>) {
    print "$line";
}