...
my $baseURL = "http://www1.myvodafone.com.au";
my $res;

logmsg("Requesting homepage ...");
$res = $ua->request(new HTTP::Request(GET=>$baseURL));
$res->is_success or giveUp($res->status_line);

logmsg("Logging in...");
$res = $ua->request(POST "$baseURL/userpages", ... );
$res->is_success or giveUp($res->status_line);

logmsg("Requesting SMS form...");
$res = $ua->request(new HTTP::Request(GET=>"$baseURL/userpages/web2txt.fcgi"));
$res->is_success or giveUp($res->status_line);

logmsg("Submitting SMS form...");
$res = $ua->request(POST "$baseURL/userpages/web2txt.fcgi"),...);
$res->is_success or giveUp($res->status_line);

logmsg("Completed submission.");

sub giveUp
{
   my $msg = shift;
   print scalar localtime(time) . "Error: $msg\n";
   exit(1);
}
...