diff --git a/at/create_job.cgi b/at/create_job.cgi
index d307fca70..053ddd553 100755
--- a/at/create_job.cgi
+++ b/at/create_job.cgi
@@ -2,9 +2,8 @@
 # create_job.cgi
 # Create a new at job
 
-require 'timelocal.pl';
-
 require './at-lib.pl';
+use Time::Local;
 &ReadParse();
 &error_setup($text{'create_err'});
 
diff --git a/cluster-useradmin/create_group.cgi b/cluster-useradmin/create_group.cgi
index 8e2ed20dd..aca828c4f 100755
--- a/cluster-useradmin/create_group.cgi
+++ b/cluster-useradmin/create_group.cgi
@@ -3,7 +3,7 @@
 # Creates a new group on all servers
 
 require './cluster-useradmin-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &error_setup($text{'gsave_err'});
 &ReadParse();
 @hosts = &list_useradmin_hosts();
diff --git a/cluster-useradmin/create_user.cgi b/cluster-useradmin/create_user.cgi
index f8dfd6d44..f41da4f61 100755
--- a/cluster-useradmin/create_user.cgi
+++ b/cluster-useradmin/create_user.cgi
@@ -3,7 +3,7 @@
 # Creates a new user on multiple machines
 
 require './cluster-useradmin-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &foreign_require("useradmin", "user-lib.pl");
 &error_setup($text{'usave_err'});
 &ReadParse();
diff --git a/cluster-useradmin/edit_user.cgi b/cluster-useradmin/edit_user.cgi
index 4ba536464..65971d59c 100755
--- a/cluster-useradmin/edit_user.cgi
+++ b/cluster-useradmin/edit_user.cgi
@@ -3,7 +3,7 @@
 # Display a form for editing a user, or creating a new user
 
 require './cluster-useradmin-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 &foreign_require("useradmin", "user-lib.pl");
 
diff --git a/cluster-useradmin/save_user.cgi b/cluster-useradmin/save_user.cgi
index dbdcfa9c2..ed5a247b4 100755
--- a/cluster-useradmin/save_user.cgi
+++ b/cluster-useradmin/save_user.cgi
@@ -3,7 +3,7 @@
 # Updates an existing user across multiple servers
 
 require './cluster-useradmin-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &error_setup($text{'usave_err'});
 &ReadParse();
 &foreign_require("useradmin", "user-lib.pl");
diff --git a/cluster-useradmin/user_form.cgi b/cluster-useradmin/user_form.cgi
index 7bf4688b3..30a788a4b 100755
--- a/cluster-useradmin/user_form.cgi
+++ b/cluster-useradmin/user_form.cgi
@@ -3,7 +3,7 @@
 # Display a form for creating a new user
 
 require './cluster-useradmin-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 &foreign_require("useradmin", "user-lib.pl");
 
diff --git a/dhcpd/list_leases.cgi b/dhcpd/list_leases.cgi
index 8f85332e2..43b529333 100755
--- a/dhcpd/list_leases.cgi
+++ b/dhcpd/list_leases.cgi
@@ -3,7 +3,7 @@
 # List all active leases
 
 require './dhcpd-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 $timenow = time();
 
diff --git a/nis/edit_passwd_shadow.cgi b/nis/edit_passwd_shadow.cgi
index 201085a61..47aefbc89 100755
--- a/nis/edit_passwd_shadow.cgi
+++ b/nis/edit_passwd_shadow.cgi
@@ -3,7 +3,7 @@
 # Edit a NIS password/shadow files entry
 
 require './nis-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 &ui_print_header(undef, $text{'passwd_title'}, "");
 $mode = ($0 =~ /passwd_shadow_full.cgi$/ ? 2 :
diff --git a/nis/old_edit_passwd_shadow.cgi b/nis/old_edit_passwd_shadow.cgi
index a3950d8f0..814a65e06 100755
--- a/nis/old_edit_passwd_shadow.cgi
+++ b/nis/old_edit_passwd_shadow.cgi
@@ -3,7 +3,7 @@
 # Edit a NIS password/shadow files entry
 
 require './nis-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 &ui_print_header(undef, $text{'passwd_title'}, "");
 
diff --git a/nis/save_passwd_shadow.cgi b/nis/save_passwd_shadow.cgi
index 338fae585..b785cbbaf 100755
--- a/nis/save_passwd_shadow.cgi
+++ b/nis/save_passwd_shadow.cgi
@@ -3,7 +3,7 @@
 # Create, update or delete a password/shadow files entry
 
 require './nis-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 
 ($t, $lnums, $passwd, $shadow) =
diff --git a/time/apply.cgi b/time/apply.cgi
index c2a2ae7b4..e21b08bc9 100755
--- a/time/apply.cgi
+++ b/time/apply.cgi
@@ -4,7 +4,7 @@ local $format;
 local $out;
 
 require "./time-lib.pl";
-require 'timelocal.pl';
+use Time::Local;
 
 &ReadParse();
 
diff --git a/updown/download.cgi b/updown/download.cgi
index 4282c7dfb..a6f54205f 100755
--- a/updown/download.cgi
+++ b/updown/download.cgi
@@ -3,7 +3,7 @@
 # Save a download or start it right now
 
 require './updown-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 &error_setup($text{'download_err'});
 
diff --git a/useradmin/edit_user.cgi b/useradmin/edit_user.cgi
index c905bbce9..da934f051 100755
--- a/useradmin/edit_user.cgi
+++ b/useradmin/edit_user.cgi
@@ -3,7 +3,7 @@
 # Display a form for editing a user, or creating a new user
 
 require './user-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 
 # Show header and get the user
diff --git a/useradmin/save_group.cgi b/useradmin/save_group.cgi
index c90a75713..bd303a019 100755
--- a/useradmin/save_group.cgi
+++ b/useradmin/save_group.cgi
@@ -3,7 +3,7 @@
 # Saves or creates a new group
 
 require './user-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &error_setup($text{'gsave_err'});
 &ReadParse();
 
diff --git a/useradmin/save_user.cgi b/useradmin/save_user.cgi
index 02e536f5a..6456b43c6 100755
--- a/useradmin/save_user.cgi
+++ b/useradmin/save_user.cgi
@@ -4,7 +4,7 @@
 # home directory or changing file ownerships, do that as well
 
 require './user-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &error_setup($text{'usave_err'});
 &ReadParse();