#!/usr/bin/perl -w
use strict;

use constant PROJECT => $ARGV[0];
use constant ARCHIVE => $ARGV[1];

print "PROJECT value = " . PROJECT. "\n";
print "ARCHIVE value = " . ARCHIVE. "\n\n";

if (ARCHIVE eq "")
{
   warn( "No archive file was supplied.\n");
   exit 1201;
}

print "Still running\n";