#!/bin/usr/perl # use warnings; use strict; use WWW::Mechanize::Firefox; my $mech = WWW::Mechanize::Firefox->new( tab => 'current', ); $mech->post('http://book.flypeach.com/WebService/B2cService.asmx/SearchLowFareSingleMonth'); my $retries = 10; while ($retries-- and ! $mech->is_visible( xpath => '//*[@id="dvAvailabilitySearch"]' )) { sleep 1; }; die "Timeout" if 0 > $retries; # Now the element exists #$mech->click({xpath => '//*[@id="ctl00_dvOutwardResult"]'}); print $mech->content;