use strict;
use FileHandle;

sub slurp {
	my $fh = new FileHandle;
    my $file = 'STDIN';
	$file = $_[0] if $_[0];
	$fh->open($file) or die "Can't open $file: $!";
    $fh->input_record_separator(undef);
    my $slurp = <$fh>;
    $fh->close or die "Can't close $file: $!";
    $slurp;
}

print slurp();