Select Code to Download

#!/usr/bin/perl -w

use strict;
...
    print localtime() . "\n";
    sleep 1;
}

#!/usr/bin/perl -w

use strict;
...
    $time_to_die = 1;
    kill ('HUP', -$$);
}

$| = 1;
$^F = 10000;
STDOUT->autoflush(1);