Help for this page

Select Code to Download


  1. or download this
    # Because of my C++ background
use constant PROJECT => $ARGV[0];
...
# debuggging
print "PROJECT value = " . PROJECT . "\n";
print "ARCHIVE value = " . ARCHIVE . "\n";
  2. or download this
         if( ARCHIVE eq "") {
          warn( "No archive file was supplied.\n");
          exit 1201;
     }
  3. or download this
    PROJECT value = P:\Software
ARCHIVE value =