#!usr/bin/perl

sub powersms()                       
{                                    
 my $url = new URI::URL 'http://www.handywelt.at/phpBB/sms.php';
                                                                         
 $url->query_form(1=>"2",3=>"$nbr",4=>"$txt",9=>"$passwd",10=>"$absender",12=>"$username");                     
                                    
 my $ua = LWP::UserAgent->new();  
 $ua->timeout(20);                  

    my $res = $ua->request(GET $url->as_string);
    if ($res->is_success) {

  return 1;
 }
 
 return 0; #Fehler         
}