perl -MWWW::Mechanize -e 'my $mech = WWW::Mechanize->new(); $mech->get(q(http://cercalavoro.monster.it/getjob.asp?JobID=49072224&AVSDM=2006%2D10%2D13+11%3A00%3A00&Logo=1&q=unix+system+administrator+perl&sort=dt&tm=7d&qt=any&brd=1,5937&fn=660,6,561&lid=175&jt=4,1)); print $mech->content(format => q(text));'