while( defined( my $line=<FILE> )) {
    my $sequence= "ecNumber*$line#source*Swiss-Prot#textmining*0";
    print "Retrieving [$sequence]\n";
    $resultString = SOAP::Lite
    -> uri('http://www.brenda-enzymes.org/soap2')
    -> proxy('http://www.brenda-enzymes.org/soap2/brenda_server.php')
    -> getSequence($sequence)
    -> result;   
};