while (my $var = <STDIN>) {
    chomp $var;
    system 'awk', -f => 'work_5messages.awk', $var and
      die "D'Oh! (Do better error checking!!)";
}