sub file_processing {
   my ($script, $arg, $file) = @_;
   my @ret;

   open(FILE, "$script $arg $file |") or die "can't do it: $!";

   while (<FILE>) {
      chomp;
      next if /^#|none|unkno/i;
      push(@ret, $_);
   }
   close(FILE);

   return @ret;
}

##</code><code>##

my $pid = open(FILE, "-|");
if (!$pid) {
   die "Couldn't fork: $!" unless defined $pid;

   exec($script, $arg, $file) or die "Couldn't exec: $!";
}