$ie = Win32::IE::Mechanize->new();

    $ie->get( $url );

    @forms = $ie->_extract_forms();
    
      foreach $forms (@forms) {
	    print $forms ,"\n";
	}