use CGI;
use Device::Gsm;
my $qu = new CGI;
my @num = $qu->param("num");
my @msg = $qu->param("message");
print "Content-type:text/html\n\n";
my $gsm = new Device::Gsm( port => '/dev/ttyACM0', pin => '0000' , log => 'file,network.log', loglevel => 'debug');
if( $gsm->connect() ) {     #line no.14
print "connected!\n";
} else {
print "sorry, no connection with gsm phone on serial port!\n";
}
$gsm->register();
$gsm->send_sms(
recipient => "$num[0]",
content => "$msg[0]",
class => 'normal');