my $filename = 'thefile.txt';
  my $pid = open(FH, "-|");
  if (not defined $pid) {
    die "cannot fork: $!; bailing out";
  }
  if (! $pid) {
    exec('/bin/cat', $filename);
  }
  while (<FH>) { ... }