my $argv1 = $ARGV[1];
if($argv1 =~ m/^([a-zA-Z0-9_]+)$/) {
        $argv1 = $1;
        print "$1";
}
else {
        die "Bad Data in $argv1";
}