open(STDOUT,'|perl') or die "...";