#!/usr/bin/perl
use strict;

if(my $pid = fork()) {
	for (0..5) {
		print "original: " . $_ . "\n";
		sleep(1);
	}
}
else {
	for (0..10) {
		print "forked: " . $_ . "\n";
		sleep(1);
	}
}
print "exiting\n";
exit;