#! /usr/bin/perl                                                                                                  
# use v5.14.2; # don't have this                                                                                  
use strict;
use warnings;

my $file = shift || die $!;

print qq("Got that $file!"\n) if -e $file;

open  ( my $fh, "<", $file) || die qq(Couldn't open $file: $!\n);
print while <$fh>;
close $fh;

__END__

Karls-Mac-mini:monks karl$ ./ShermW0829.pl linux_complete_command_set.txt
"Got that linux_complete_command_set.txt!"
Reboot that box!
Go away, you don't exist!