1: 
2: 
3: 
4: 
5: 
6: 
7: 
8: 
9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
21: 
22: 
23: 
24:

#!/usr/bin/perl -w
use IO::Socket;

$remote = IO::Socket::INET->new(
    Proto => "tcp",
    PeerAddr => "www.blabla.de",
    PeerPort => "http(80)",);

unless ($remote) { die "cannot connect to HTTP port"
}

$remote->autoflush(1);
print $remote "POST /receiver.php HTTP/1.0Content-type: application/x-www-form-urlencodedContent-length: 9";
print $remote "variable=123";

while ( <$remote> ) { print
}
close $remote;