#!/usr/bin/perl use HTTP::Request::Common qw(POST); use LWP::UserAgent; my $url_sendsms = "http://bulksms.funonphone.com/sendsms.asp"; my($ua,$request,$response,%field); undef %field; $field{user} = "username"; $field{password} = "password"; $field{Sender} = "91982201234"; $field{Text} = "This is a test message"; $field{PhoneNumber} = "4477880099231"; $ua = LWP::UserAgent->new; $request = POST $url_sendsms,\%field; $response = $ua->request($request); if($response->is_success) { print $response->as_string; } else { print "Failed: ", $response->status_line, "\n"; }