#!/bin/perl

sub sigchldHandler {
        wait() ;
}
$SIG{CHLD} = \&sigchldHandler ;


my $pid = fork();
if ( $pid == 0 ) {
        $Result=`ls -l`;
        print "ReturnCode = $? \n";
}