Help for this page
perl -ne 'while (my $var= <STDIN>) { $run = "awk -f work _5messages.awk ".$var; `$run`; }'
awk: fatal: can't open source file `work' for reading (No such file or + directory