#!/usr/bin/perl
open (FH,"< slurp1");
read( FH, $buf, -s FH );
close FH;
print "$buf\n";