#!usr/bin/perl -w

# Create a user agent object
  use LWP::UserAgent;
  $ua = LWP::UserAgent->new;
  $ua->agent("MyApp/0.1 ");

  # Create a request
  my $req = HTTP::Request->new(GET => 'http://www.e-gold.com/unsecure/
+metaldata.asp?LATEST=1&GOLD=1');
  $req->content_type('application/x-www-form-urlencoded');
#  $req->content('LATEST=1&GOLD=1');

  # Pass request to the user agent and get a response back
  my $res = $ua->request($req);

  # Check the outcome of the response
  if ($res->is_success) {
      print $res->content;
  } else {
      print "Bad luck this time\n";
  }
[download]