Well, add more logs to find precisely where you are stuck:

sub wanted
{
  $logger->debug("Reached $File::Find::name");
  $logger->info(Carp::longmess("TRACE2"));
  if (-f $File::Find::name)
  {
    $logger->debug("This is a file: checking time");
    stat($File::Find::name)->mtime > $lastepoch or return;
    push @files,$File::Find::name;
  }
  else
  { 
    $logger->debug("Not a file");
    if (-d $File::Find::name)
    {
      $logger->debug("This is a directory");
      push @todel,$File::Find::name;
    }
    else
    {
      $logger->debug("Not a directory");
    }
  }
  $logger->debug("Exiting");
}
[download]

BTW, /\.*$/ means that the name must have 0 or more dots at the end. This is true for all strings so this test is useless.