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