open $fh, "> $param" or confess "can't open $param $!";
print $fh "# Geomagnetic data parameter file last mod:", scalar gmtime, "\n";
print $fh "\$date = $date;\n";
open $fh, "> $param" or confess "can't open $param $!";
print $fh "# Geomagnetic data parameter file last mod:", scalar gmtime, "\n";
print $fh "\$date = $date;\n";