#!/usr/bin/perl -w

use LWP::Simple;
use strict;

my $word=$_;

my $url="http://dictionary.reference.com/search?q=$word";
my $html=get $url;
open(HTMLTRANS,">./htmlTransfer.lib");
print HTMLTRANS "$html";
close(HTMLTRANS);