#!/usr/bin/env perl

use strict;
use warnings;

my $pid = fork();

if (defined $pid) {
    if ($pid) {
        print "Parent: $$; Child: $pid\n";
        my $wait = wait();
        print "Parent waited on Child: $wait\n";
    }
    else {
        print "Child: $$\n";
        exit;
    }
}
else {
    warn 'Fork failed!';
}

##</code><code>##

Parent: 553; Child: 554
Child: 554
Parent waited on Child: 554