#!/usr/bin/perl -w
use strict;

my $a = 'a';
while (1) {
 $0 = "null_".$a++;
}