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