The first step is to ask Perl to tell you about errors:

    open(INFILE, "PSR_Date.txt")
        or die "Couldn't open input file 'PSR_Date.txt': $!";
    open(OUTFILE, ">PSR_OutputDate.txt")
        or die "Couldn't create output file 'PSR_OutputDate.txt': $!";
[download]