use Fatal qw( :void open close );
sub slurp {
   local $/ = undef;
   my ($s, $file);
   open $file, $_[0];
   $s = readline $file;
   close $file;
   return $s;
}

$foo = slurp("bar.txt");