#!/usr/bin/perl
use strict;

system("./2.pl &");

for (0..5) {
	print "1: " . $_ . "\n";
	sleep(1);
}
print "exiting\n";
exit;