open (IN, "< $file")
  or warn ("Can't open $file: $!\n"), die;

my $data = do { local $/; <IN> };  # file slurping

print ("$file ==> $data\n");

close(IN);