my $size = -s( $filename );
open my $fh, '<', $filename or die $!;
read( $fh, my $data, $size );