#!/usr/bin/perl
# PROGRAM "A"

my $pid = fork();

if ( $pid ) { while (1) {sleep 3} }
else { exec( "/tmp/junk.perl" )   }

__END__

#!/usr/bin/perl
# PROGRAM "B"

system( "find / -ls > /tmp/junk.find 2>&1" ); # this takes a while

__END__

##</code><code>##

system( "find / -ls > /tmp/junk.find 2>&1 &" );

##</code><code>##

open( C, "process_C |");