#!/usr/bin/perl -w
use File::Temp qw(tempdir);
use File::Spec::Functions;
use LWP::Simple qw(getstore);
my ($temp_dir)=tempdir(CLEARUP => 1);
my %searches = (
google =>\'http://www.google.com/#h1=en&q=perl\',
yahoo => \'http://search.yahoo.com/search?p=perl\',
microsoft => \'http://www.bing.com/search?q=perl\',
);
foreach my $search (keys %searches) {
getstore($searches{$search},catfile($temp_dir,$search));
}