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

my $content;

open(IN, "<", $ARGV[0]) or die $!;
while ( $content .= <IN> ) {
  print $content;
};
close(IN) or die $!;