print "pid:$$\n";
my $x = 'monks' x (3);
sleep 60;