Select Code to Download

use Time::Local;
...
  no warnings;
  print timelocal(0,0,0,15,6,2005),$/;
}

{
  local $^W;
  ...
}