or download this
#!/usr/bin/perl
use SOAP::Lite +trace => 'all';
...
my $arg = SOAP::Data->name(RequestHeader => "", CommandId => "QueryBas
+icInfo", Version =>"1", TransactionId =>"1", SequenceId =>"1", Reques
+tType => "Event", SubscriberNo => "9136006473", QueryType => "4");
$soap->call($call => $arg);