...
 if($del_sessions=~ /^cgisess_[a-f0-9]{32}$/) {

   my $session = CGI::Session->load( "driver:File",  $del_sessions,{ Directory => '/sessions' } ) or die "$!";
   # Delete session
   if ( $session->is_expired ) {
   $session->delete() if ($session);
   $session->flush() if ($session);
   }
}