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