#!/usr/bin/perl
use LWP 5.64;
my %form;
$form{"name"} = $name;
$form{"email"} = $email;
$form{"grade"} = $grade;
my $res;
my $url = "http://www.mydomain.com/register.php";
SIG{ALRM} = sub {print "timeout";};
eval{
    alarm(30);
    $res = $ua->post($url, \%form);
    alarm(0);
};

$page_content = $res->content if $res->is_success;