format_c@linux:~/perl_samples> perl
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;

my $url = "http://www.google.de/search?q=MPlayer&ie=ISO-8859-1&hl=de&meta=";
my ($uri,$param) = split /\?/,$url;
my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (compatible; Konqueror/3; Linux)');
my $request = $ua->request(GET $uri,[split /&|;|=/,$param]);

if ($request->is_success) {
        print "OK\n";
}
else {
        print "Nicht OK\n";
}

OK
format_c@linux:~/perl_samples>