#!/usr/bin/perl -w

use WWW::Mechanize;
use Win32::Process;
use LWP;

use strict;


my $url="http://thewebside";

my $page;
my $inhalt;

my $firefoxpfad="C:\\firefox\\firefox.exe";
my $firefox="firefox";

#####  page holen #############################

$page = WWW::Mechanize->new( autocheck => 1 );
#$page = WWW::Mechanize->new();
$page->get($url);
$page->success or die "Can't get the searched page";

#$page->form_name( "contactForm1" );
$page->form_number( 1 );

$page->field('contactFormId' => "1");   ### hidden field, is already set
$page->field('name' => "myname");
$page->field('message' => "Hello");

##### page speichern ########################

$inhalt = $page->content;

## normally I would like to open firefox with $inhalt which should
## contain already the filled fields
## but here I save it to disk


#print $inhalt;

open (ERGEBNISFILE, ">ergebnisfile.html") || die "Kann \"ergebnisfile\" nicht oeffnen $!";		
printf ERGEBNISFILE "%s\n" ,"$inhalt";

close (ERGEBNISFILE);

=BEGIN
##### open in browser #####################

			    Win32::Process::Create( my $ProcessObj,
					### win xp
					"$firefoxpfad",
					 "$firefox $url",
					 0, NORMAL_PRIORITY_CLASS,  ".") || die ErrorReport();				

=END
=cut