Re: pipe perl

[VinsWorldcom]

See open. Then try this:

open(my $old, '|-', "/bin/old");
select((select($old), $| = 1)[0]);

foreach my $INPUT(@DATA)
{
    my ($LAST_NAME,$FIRSTNAME,$ID_NUM,$BOOK) = split(/\s+/,$INPUT);
    print $old "$LAST_NAME\t$FIRSTNAME\n";
    print $old "\t$ID_NUM\t$BOOK\n"
}