--- nfo/perl/libs/libp.pm	2002/08/16 19:06:39	1.4
+++ nfo/perl/libs/libp.pm	2002/10/27 18:34:28	1.5
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: libp.pm,v 1.4 2002/08/16 19:06:39 cvsjoko Exp $
+#  $Id: libp.pm,v 1.5 2002/10/27 18:34:28 joko Exp $
 #
 #  $Log: libp.pm,v $
+#  Revision 1.5  2002/10/27 18:34:28  joko
+#  + sub now
+#
 #  Revision 1.4  2002/08/16 19:06:39  cvsjoko
 #  + sub getDirList
 #
@@ -31,6 +34,7 @@
     croak
     array_getDifference
     getDirList
+    now
 );
 
 use strict;
@@ -204,4 +208,8 @@
 # =============================================
 
 
+sub now {
+  return strftime("%Y-%m-%d %H:%M:%S", localtime);
+}
+
 1;