Select Code to Download

#!/usr/bin/perl -w
# casma_archive.pl
...
 return $retval;
}

$file_date = POSIX::strftime("%C%y%m%d", localtime); #get the current 
+date to append to file name

...
    }

} #end archive_results