#!/usr/bin/perl

use warnings;
use strict;

$| = 1;
my $pid = 0;
if ( $pid = fork() ) {
   print( "Parent executing.\n" );
   sleep( 2 );
   print( "Parent finished.\n" );
}
elsif ( defined( $pid ) ) {
   print( "Child executing.\n" );
   sleep( 2 );
   print( "Child finished.\n" );
   exit();
}
else {
   die( "Could not fork" );
}