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