use WWW::Mechanize;
    my $mech = WWW::Mechanize->new();

    $mech->get( 'http://www.crossref.org/SimpleTextQuery/' );

  

    $mech->submit_form(
        form_name => 'freeTextQuery',
        fields      => {
            email    => 'arasu84@gmail\.com',
            freetext    => 'Allman, J. M., Watson, K. K., Tetreault, N. A. & ., and Hakeem, A. Y. (2005). Intuition and autism: a possible role for Von Economo neurons. Trends in Cognitive Sciences,Cogn. Sci. 9 (8), pp. 367-–373.',
        },
	    button    => 'submitButton'		       
    );

    my $result = $mech->response->content;
    print $result;