Hjælp--- POST hentning

Jeg skal have lidt hjælp....

Understående script vil jeg have til at hente en www side fra en anden server. Det er nemt nok, hvis at man skal gøre det med GET, men hvad med POST --- Hvad har jeg gjort galt... PS: er der nogen der gide forklare mig hvorfor der skal stå my $... foran det hele

##----- Script Copyright by Christian Panton 1999 -------




#!/usr/bin/perl
#use strict;
$| = 1;
my $VERSION = "1.0";

use LWP::UserAgent;
use URI::Escape;

my $query = uri_escape(shift);

my $QBASE = "http://panton.virtualave.net/posttest.pl";

my $ua = new LWP::UserAgent;
$ua->agent("panton/$VERSION");
$ua->env_proxy;
$post = "hej";

$_ = &fetch("$QBASE");
print $_;

 
sub fetch {
my $url = shift;
my $header = new HTTP::Headers;
my $values = $header->header('content-type' => 'text/plain','content-length' => '5');

my $request = new HTTP::Request('POST',$url,$values,'$post');
my $response = $ua->request($request);
die "$url failed: ",$response->error_as_HTML
unless $response->is_success;
$response->as_string()
#$response->content;
}

###[EOF]###