// Example code that gives problems in httpunit, i would not know of a way in perl or any other method...

import com.meterware.httpunit.*;
import junit.framework.*;

public class Ced extends TestCase{

    public static void main( String[] params ) {
        try {
            // create the conversation object which will maintain state for us
            WebConversation wc = new WebConversation();

            // Obtain the main page on the web site
            WebRequest request = new GetMethodWebRequest( "http://www.site.com/cgi-bin/script.pl/12" );
            WebResponse response = wc.getResponse( request );

			// Print the pagesource if needed. 
			// System.out.println( response.getText() );

			// Insert form data 
			WebForm form = response.getFormWithName("LoginForm");
			assertNotNull( "No form found with name 'LoginForm'", form );

			form.setParameter("userid", "username");
			form.setParameter("password","secret");
            
			// Submit the data
			WebLink loginbutton = response.getFirstMatchingLink( WebLink.MATCH_CONTAINED_TEXT, "Log in");
			response = loginbutton.click();
			
        } catch (Exception e) {
            System.err.println( "Exception: " + e );
        }
    }
}

// This generates errors like: Event 'top.ResetTimeOut();' failed: TypeError: clearTimeout is not a function.