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