##

use WWW::Mechanize;

my $seq='MAKRGGQLCAGSAPGALGPRSPAPRPLLLLLAGLALVGEARTPGGDGFSLHPPYFNLAEGARITASATCGEEAPTRSVSRPTEDLYCKLVGGPVAGGDPNQTIQGQYCDICTAANSNKAHPVSNAIDGTERWWQSPPLSRGLEYNEVNVTLDLGQVFHVAYVLIKFANSPRPDLWVLERSTDFGHTYQPWQFFASSKRDCLERFGPRTLERITQDDDVICTTEYSRIVPLENGEIVVSLVNGRPGALNFSYSPLLRDFTKATNIRLRFLRTNTLLGHLMGKALRDPTVTRRYYYSIKDISIGGRCVCHGHADVCDAKDPLDPFRLQCACQHNTCGGSCDRCCPGFNQQPWKPATTDSANECQSCNCHGHAYDCYYDPEVDRRNASQNQDNVYQGGGVCLDCQHHTTGINCERCLPGFFRAPDQPLDSPHVCRPCDCESDFTDGTCEDLTGRCYCRPNFTGELCAACAEGYTDFPHCYPLPSFPHNDTREQVLPAGQIVNCDCNAAGTQGNACRKDPRLGRCVCKPNFRGAHCELCAPGFHGPSCHPCQCSSPGVANSLCDPESGQCMCRTGFEGDRCDHCALGYFHFPLCQLCGCSPAGTLPEGCDEAGRCQCRPGFDGPHCDRCLPGYHGYPDCHACACDPRGALDQQCGVGGLCHCRPGYTGATCQECSPGFYGFPSCIPCHCSADGSLHTTCDPTTGQCRCRPRVTGLHCDMCVPGAYNFPYCEAGSCHPAGLAPANPALPETQAPCMCRAHVEGPSCDRCKPGYWGLSASNPEGCTRCSCDPRGTLGGVTECQGNGQCFCKAHVCGKTCAACKDGFFGLDYADYFGCRSCRCDVGGALGQGCEPKTGACRCRPNTQGPTCSEPAKDHYLPDLHHMRLELEEAATPEGHAVRFGFNPLEFENFSWRGYAHMMAIQPRIVARLNVTSPDLFRLVFRYVNRGSTSVNGQISVREEGKLSSCTNCTEQSQPVAFPPSTEPAFVTVPQRGFGEPFVLNPGIWALLVEAEGVLLDYVVLLPSTYYEAALLQHRVTEACTYRPSALHSTENCLVYAHLPLDGFPSAAGTEALCRHDNSLPRPCPTEQLSPSHPPLATCFGSDVDIQLEMAVPQPGQYVLVVEYVGEDSHQEMGVAVHTPQRAPQQGVLNLHPCPYSSLCRSPARDTQHHLAIFYLDSEASIRLTAEQAHFFLHSVTLVPVEEFSTEFVEPRVFCVSSHGTFNPSSAACLASRFPKPPQPIILKDCQVLPLPPDLPLTQSQELSPGAPPEGPQPRPPTAVDPNAEPTLLRHPQGTVVFTTQVPTLGRYAFLLHGYQPVHPSFPVEVLINGGRIWQGHANASFCPHGYGCRTLVLCEGQTMLDVTDNELTVTVRVPEGRWLWLDYVLIVPEDAYSSSYLQEEPLDKSYDFISHCATQGYHISPSSSSPFCRNAATSLSLFYNNGALPCGCHEVGAVSPTCEPFGGQCPCRGHVIGRDCSRCATGYWGFPNCRPCDCGARLCDELTGQCICPPRTVPPDCLVCQPQSFGCHPLVGCEECNCSGPGVQELTDPTCDMDSGQCRCRPNVAGRRCDTCAPGFYGYPSCRPCDCHEAGTMASVCDPLTGQCHCKENVQGSRCDQCRVGTFSLDAANPKGCTRCFCFGATERCGNSNLARHEFVDMEGWVLLSSDRQVVPHEHRPEIELLHADLRSVADTFSELYWQAPPSYLGDRVSSYGGTLHYELHSETQRGDIFIPYESRPDVVLQGNQMSIAFLELAYPPPGQVHRGQLQLVEGNFRHLETHNPVSREELMMVLAGLEQLQIRALFSQTSSSVSLRRVVLEVASEAGRGPPASNVELCMCPANYRGDSCQECAPGYYRDTKGLFLGRCVPCQCHGHSDRCLPGSGICVGCQHNTEGDQCERCRPGFVSSDPSNPASPCVSCPCPLAVPSNNFADGCVLRNGRTQCLCRPGYAGASCERCAPGFFGNPLVLGSSCQPCDCSGNGDPNMIFSDCDPLTGACRGCLRHTTGPHCERCAPGFYGNALLPGNCTRCDCSPCGTETCDPQSGRCLCKAGVTGQRCDRCLEGYFGFEQCQGCRPCACGPAAKGSECHPQSGQCHCQPGTTGPQCLECAPGYWGLPEKGCRRCQCPRGHCDPHTGHCTCPPGLSGERCDTCSQQHQVPVPGKPGGHGIHCEVCDHCVVLLLDDLERAGALLPAIREQLQGINASSAAWARLHRLNASIADLQSKLRSPPGPRYQAAQQLQTLEQQSISLQQDTERLGSQATGVQGQAGQLLDTTESTLGRAQKLLESVRAVGRALNELASRMGQGSPGDALVPSGEQLRWALAEVERLLWDMRTRDLGAQGAVAEAELAEAQRLMARVQEQLTSFWEENQSLATHIRDQLAQYESGLMDLREALNQAVNTTREAEELNSRNQERLKEALQWKQELSQDNATLKATLQAASLILGHVSELLQGIDQAKEDLEHLAASLDGAWTPLLKRMQAFSPASSKVDLVEAAEAHAQKLNQLAINLSGIILGINQDRFIQRAVEASNAYSSILQAVQAAEDAAGQALRQASRTWEMVVQRGLAAGARQLLANSSALEETILGHQGRLGLAQGRLQAAGIQLHNVWARKNQLAAQIQEAQAMLAMDTSETSEKIAHAKAVAAEALSTATHVQSQLQGMQKNVERWQSQLGGLQGQDLSQVERDASSSVSTLEKTLPQLLAKLSRLENRGVHNASLALSANIGRVRKLIAQARSAASKVKVSMKFNGRSGVRLRTPRDLADLAAYTALKFHIQSPVPAPEPGKNTGDHFVLYMGSRQATGDYMGVSLRNQKVHWVYRLGKAGPTTLSIDENIGEQFAAVSIDRTLQFGHMSVTVEKQMVHEIKGDTVAPGSEGLLNLHPDDFVFYVGGYPSNFTPPEPLRFPGYLGCIEMETLNEEVVSLYNFEQTFMLDTAVDKPCARSKATGDPWLTDGSYLDGSGFARISFEKQFSNTKRFDQELRLVSYNGIIFFLKQESQFLCLAVQEGTLVLFYDFGSGLKKADPLQPPQALTAASKAIQVFLLAGNRKRVLVRVERATVFSVDQDNMLEMADAYYLGGVPPEQLPLSLRQLFPSGGSVRGCIKGIKALGKYVDLKRLNTTGISFGCTADLLVGRTMTFHGHGFLPLALPDVAPITEVVYSGFGFRGTQDNNLLYYRTSPDGPYQVSLREGHVTLRFMNQEVETQRVFADGAPHYVAFYSNVTGVWLYVDDQLQLVKSHERTTPMLQLQPEEPSRLLLGGLPVSGTFHNFSGCISNVFVQRLRGPQRVFDLHQNMGSVNVSVGCTPAQLIETSRATAQKVSRRSRQPSQDLACTTPWLPGTIQDAYQFGGPLPSYLQFVGISPSHRNRLHLSMLVRPHAASQGLLLSTAPMSGRSPSLVLFLNHGHFVAQTEGPGPRLQVQSRQHSRAGQWHRVSVRWGMQQIQLVVDGSQTWSQKALHHRVPRAERPQPYTLSVGGLPASSYSSKLPVSVGFSGCLKKLQLDKRPLRTPTQMVGVTPCVSGPLEDGLFFPGSEGVVTLELPKAKMPYVSLELEMRPLAAAGLIFHLGQALATPYMQLKVLTEQVLLQANDGAGEFSTWVTYPKLCDGRWHRVAVIMGRDTLRLEVDTQSNHTTGRLPESLAGSPALLHLGSLPKSSTARPELPAYRGCLRKLLINGAPVNVTASVQIQGAVGMRGCPSGTLALSKQGKALTQRQAKPSVSPLLWH';

my $url = 'https://rostlab.org/services/nlsdb/';
my $mech = WWW::Mechanize->new();
$mech->get($url);

$mech->submit_form
(
    form_number => 1,
    fields      => 
    {
    #textarea name | value
    "input-data" => $seq,

    #select button
    "query-seq" => on
    }
);

my $result = $mech->content();
print $result;