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

my $fileloc = $ARGV[0];
chomp $fileloc;

open(HANDLE,"$fileloc") or die "cannot open file: $!";
my $content = <HANDLE>;
close(HANDLE);

print "$content\n";