open IN, '<', $infile
      or die "Cannot open infile: $!\n";
   my $foo = <IN>;
   print "The foo value is " . $foo . ".\n";

##</code><code>##

   ((open(IN, '<', $infile))
      or (die "Cannot open infile: $!\n"));
   ((my $foo) = <IN>);
   (print(("The foo value is " . $foo) . ".\n"));