Select Code to Download

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

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

monksmonksmonks
monks

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

monksmonksmonks
monksmonksmonks
monksmon<