--- nfo/perl/libs/libp.pm	2002/11/29 04:44:53	1.7
+++ nfo/perl/libs/libp.pm	2002/12/01 22:11:35	1.8
@@ -1,8 +1,12 @@
 #################################
 #
-#  $Id: libp.pm,v 1.7 2002/11/29 04:44:53 joko Exp $
+#  $Id: libp.pm,v 1.8 2002/12/01 22:11:35 joko Exp $
 #
 #  $Log: libp.pm,v $
+#  Revision 1.8  2002/12/01 22:11:35  joko
+#  + sub cmd
+#  + sub run_cmds
+#
 #  Revision 1.7  2002/11/29 04:44:53  joko
 #  - sub array_getRelations
 #  + sub getNewPerlObjectByPkgName
@@ -47,6 +51,8 @@
     now
     deep_copy
     getNewPerlObjectByPkgName
+    cmd
+    run_cmds
 );
 
 use Data::Dumper;
@@ -218,4 +224,21 @@
   return $pkgname->new($args);
 }
 
+sub cmd ($) {
+  my $cmd = shift;
+  $cmd = 'perl ' . $cmd;
+  my $sep = "-" x 90;
+  print $sep, "\n";
+  print "  ", $cmd, "\n";
+  print $sep, "\n";
+  system($cmd);
+  print "\n";
+}
+
+sub run_cmds {
+  foreach (@_) {
+    cmd($_);
+  }
+}
+
 1;