$i = '1';
for(;;){
print "俺はキチガイだよ $i回目";
print "\n";
$i++;
sleep(1);
}