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("$ARGV7");
chomp ($user);
if ($user =~ "/^\........\d\$/\n")
{ print TEST "