#!/usr/local/bin/perl
use warnings;
use strict;
my $filename = 'your_file';
open my $filehandle, '<', $filename or die $!;
while (my $line = <$filehandle>) {
    print $line;
}
print "End of File!\n";