perl -ne 'while (my $var= <STDIN>)
{
$run = "awk -f work _5messages.awk ".$var; `$run`;
}'

##</code><code>##

awk: fatal: can't open source file `work' for reading (No such file or directory