my $userAgent=new LWP::UserAgent; 
my $otherResponse = $userAgent->post("http://www.textbooks.co/BuyBack-Search.php", ["bb_isbns" => $bookData{'searchNumber'},]);

 
use strict; 
use warnings; 
 
use WWW::Mechanize; 
 
my $mech = WWW::Mechanize->new(); 
 
$mech->agent_alias('Windows Mozilla'); 
 
$mech->get('http://www.textbooks.co/BuyBack-Search.php'); 
 
#this selects the search box 
$mech->form(1); 
 
$mech->set_feilds( 
           price_group => 'buy', 
           key_val => $bookData{'searchNumber'}, 
); 
#submit the form data  
$mech->submit(); 
 
#get the page content 
my $content = mech->content();