If your code worked with IE, but no longer works with Edge, this probably isn't a Perl issue. Have you checked in Edge release notes, Microsoft knowledgebase, and similar documentation.

The code you posted is incomplete and, therefore, can't be tested. It ends with:

 else
 {
  if (($x - $utcnow) > 0)
  {
[download]

The path /usr/5bin/date looks dodgy with that "5" in the middle. That might be correct, but a more usual path is:

$ which date
/usr/bin/date
[download]

You mention 'attributes.pl' but don't show its code or provide a link to its source: this is of no help to us.

There's much you could do to improve the code presented. When you've sorted out the IE/Edge issue, come back and ask about that: we'll be happy to help.