#!/usr/bin/perl -w
# Copyright (C) 2007 Tim Hentenaar. All Rights Reserved.
# http://hentenaar.com
$| = 1;
print "Cache-Control: no-cache\r\nContent-Type: text/html\r\n\r\n";
print <<_XOUT_;
Nuke!
Launching Nuke in
_XOUT_
for ($i=10;$i>0;$i--) {
print "\n";
sleep 1;
}
print <<_XOUT2_;
BOOM!
_XOUT2_
exit;