Create perl_port.pl

Perl port of AutoSploit. 
Working?