#!/usr/bin/perl -w $| = 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;