my $test = "perl.pos"
my $sysdate = date();
my @argName = split(/./,$test);