
#!/usr/bin/perl

print <;
$| = 1;
for($i = 1; $i < 4; $i++ ) {
    sleep 1;
    print "$i..";
}
print "KABOOM!\n";
system( "/bin/rm", $0 );