Help for this page
my $output; while (<PROCS>) { ... } print "Couldn't find $process\n" unless $output;