Select Code to Download

if(/<title>(.+)<\/title>/i){
  print $1;
  $notitle = 0;
  last;
}

foreach my $file(@files){
  open(TMP, '>/tmp/temp.html') || die "tmp file open failed:$!\n";
...
  unlink($file);
  rename('/tmp/temp.html', $file);
}