Please, help us to help you. If you want us to test our solutions, provide sample input data (see SSCCE).

If you just need general advice, here it is:

• Use localtime in scalar context to get the current timestamp:

  my $now = localtime;
  [download]

• To write to a file, open it via open and use print to populate it.

  open my $dshield, '>', "$save_dir/dshield.rsc" or die $!;
  print {$dshield} "# Generated by Joshaven Potter on $now\n";
  [download]

  If you plan to reopen the file for reading later, don't forget to close the filehandle (or just let it go out of scope).

• Instead of wget, use LWP::Simple or WWW::Mechanize.

• Instead of awk, you can process the contents returned by the aforementioned user agent line by line, with match and print:

  for my $line (split /\R/, $contents) {
      print {$fh} "add list=blacklist...\n" if /^[0-9]{1,3}\./;
  }
  [download]

• All three blocks seem very similar. It might be pragmatic to use a subroutine that abstracts all the common logic. (I'd probably create a function in the shell script, too.)

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]