#!/usr/local/bin/perl -w

use strict "vars";
#-----------------------------------------------------------------------------
my $Line;

$| = 1;

print("Suicide in 3 seconds\n");
sleep(3);
print(":::kill all\n");
while (1) {
    print("Waiting to die\n");
    sleep(1);
    }
#-----------------------------------------------------------------------------