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