[Perl] Funcion writeword

Hola , con esta funcion podran ejecutar word y escribir el texto que quieran, muy util si quieren hacer un virus

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#By Doddy H use Win32::Clipboard; use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys); sub loadword { system("start winword.exe"); sleep 4; SendKeys($_[0]); }

Ejemplo de uso

1	loadword("Hola a todos");