#! /usr/bin/perl -w

use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize -> new();

$mech -> get( 'http://www.merriam-webster.com/' );

for my $input ( $mech -> find_all_inputs() )
{
      printf $input -> name(), $input -> type(), "\n";
}	

for my $image ( $mech -> find_all_images() )
{
   printf "%-100s %s\n", $image -> image(), image -> tag();
}