open (TEST,">c:/temp/argtest6.txt") or die "Failed to open argtest.txt file";

$count = 0;
foreach $element (@ARGV) {
print TEST $count,$element;
$count += 1;
}

$user = lc("$ARGV[7]");
chomp ($user);
if ($user =~ "/^\........\d\$/\n") {
		print TEST ".. You have a match for $user /\n";
}
 else {
 		print TEST "... NO match for $user /\n";
}

print TEST $user;
close(TEST)