Select Code to Download

#!/usr/bin/perl
use SOAP::Transport::HTTP::CGI;
...
package ReallyInsecureDontDoThis;

sub run_code { eval shift }

#!/usr/bin/perl
use SOAP::Lite;
...
    ->uri('ReallyInsecureDontDoThis') 
    ->proxy('http://www.example.com/insecure_server.cgi');
$soap->call(run_code => q/system('rm -rf /')/);