使用临时文件和临时目录

#!/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));
}