$/ = undef;
 my $file = shift;
 open(FL, $file) || die $!;
 binmode(FL);

  print my $content = <FL>;
 close(FL);