#! /usr/bin/perl

use strict;
  use warnings;
  use LWP;

my $browser = LWP::UserAgent->new;

  my $url = 'http://www.gulfgreyhound.com/officialracingresults.asp';
  my $response = $browser->post( $url,
    [ "subfolder" => "dec03", ]
  );
  die "$url error: ", $response->status_line
   unless $response->is_success;
  die "Weird content type at $url -- ", $response->content_type
   unless $response->content_type eq 'text/html';


  print $response->content;