#!/usr/bin/perl
use strict;
use warnings;
use XMLRPC::Simple::Client;
use Data::Dumper;

my $client = XMLRPC::Simple::Client->new('url' => 'http://mein.xmlrpcserver.de/');
$client->_username('fuerhttp');
$client->_password('auth');
$client->_realm('ichbineinrealm');

my $response = $client->method__call__here( $ARGV[0] ); # __ wird zu .
if($response->fault()) {
	print $response->fault_code() . "\t" . $response->fault_string() . "\n";
}
else {
	my $data = $response->value();
	print Dumper($product);
}