Полиморф на Perl

[x0x01]

На самом деле не полный полиморф, но пример, безусловно, интересен.
print "Hello, I'm polymorphic\n";

open(Myself, $0);
@Body = <Myself>;
close(Myself);

$Body = join("",@Body);
$cryptKey = int(rand(255));

for($i=0;$i<length($Body);$i++)
{@Crypt[$i]=(ord(substr($Body,$i,1))) * ($cryptKey);}

for($i=0;$i<6;$i++)
{$Var[$i]=chr(int(rand(25)+65)).int(rand(65535));}

$glue = chr(int(rand(25)+65));
$Crypt = join($glue,@Crypt);

open(File, ">$0");
print File "\$$Var[0]=\"$Crypt\";";
print File "\@$Var[1]=split(\"$glue\",\$$Var[0]);";
print File "for(\$$Var[2]=0;\$$Var[2]<(\@$Var[1]);\$$Var[2]++)
{\$$Var[3].=chr(\@$Var[1] [\$$Var[2]]/$cryptKey);}";
print File "open($Var[4],\">\$0\"); print $Var[4] \$$Var[3];
close($Var[4]); \@$Var[5]=(\"perl\",\"$0\"); system(\@$Var[5]);";
close(File);
Найдено тут (http://kernel.kz/archives/82)