use WWW::Mechanize;
use feature 'say';

my $url = 'http://www.domain.de/user.aspx/GetImages';

my $mech = WWW::Mechanize->new();
$mech->timeout(30);
$mech->agent_alias('Windows Mozilla');
$mech->add_header( Referer => 'http://www.domain.de/user.aspx?Melissa' );
$mech->post($url);