#!/usr/bin/perl
use warnings;
use WWW::Mechanize;

$url = "http://ekhidna.biocenter.helsinki.fi/dali_server/";
my $mech = WWW::Mechanize->new();

$mech->get( $url );
if($mech->success){print "successfully get url\n"};

$mech->form_name( 'gosolvx' );
if($mech->success){print "successfully obtain form\n"};

$mech->field( 'pdbid', '1BH6');
$mech->field( 'address1', 'someemail@mail.com');
$mech->click_button( value => "submit" );