use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get ("http://localhost/market.php?Username=admin&Password=admin&action=Smartphone");
$mech->save_content( 'file.csv );