defined(my $pid=fork) or die $!;
unless($pid){
exec 'date';
die $!;
}
waitpid($pid,0);