Changed date calls to Perl equivalent