WWW::Mechanize

[Gallagher, Tim \(NE\)]

I am trying to create a script that will go out to dells website and
pull warenty information for our dell computers.  Has anyone worked with
WWW::Mechanize?  Any help would be appreciated.

 Here is the script that I am trying to get working.

use strict;
use WWW::Mechanize;
my $url =
"http://support.dell.com/support/topics/global.aspx/support/my_systems_i
nfo/en/details";
my $searchstring = "B28B541";
my $outfile = "out1.htm";
my $mech = WWW::Mechanize->new();
$mech->get($url);
$mech->form_name('ServiceTag');
$mech->field(query => "$searchstring");
$mech->click();
my $output_page = $mech->content();
open(OUTFILE, ">$outfile");
print OUTFILE "$output_page";
close(OUTFILE);                    


# frmServiceTagSelect 
# ServiceTag

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>