--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/g23m/system/busyb/tools/save_files.pl	Mon Jun 01 03:24:05 2015 +0000
@@ -0,0 +1,45 @@
+#!perl -w
+use strict;
+use File::Copy;
+use File::Glob ':glob';
+
+# define global variables
+my $outCmdFile;
+my $inPPFile;
+my $cmdFile;
+my $outDir;
+my @cmdFiles;
+
+# check command line
+(@ARGV == 2) || die "To few/much parameters !\n";
+
+$outCmdFile = $ARGV[0]; # a full filename
+$inPPFile =  $ARGV[1];  # a full filename
+
+# get the output directory from the first parameter
+if ($ARGV[0] =~ /(.*)(\\|\/)/ ) {
+  $outDir = $1;
+  }
+else {
+  $outDir = ".";
+}
+
+#copy the *.pp file to it's new location
+copy($inPPFile,$outDir ) || print "Could not copy $cmdFile to $outCmdFile!\n";
+
+# find the original cmd file
+@cmdFiles = bsd_glob("$outDir/*.cmd");
+if (@cmdFiles != 1) {
+  print "More/less than one cmd file found !\n";
+  exit;
+}
+$cmdFile = $cmdFiles[0];
+
+#copy (and rename) the cmd file to it's new location
+copy($cmdFile,$outCmdFile ) || print "Could not copy $cmdFile to $outCmdFile!\n";
+
+
+
+
+
+