{
   local $/ = undef; # Temporarily undefine record seperator.
   my $var = <STDIN>; # Read it all in.
} # Block ends so local restores value.