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