$bad_codeP = $ENV{"bad_code"};
chomp $bad_codeP;
print "\$bad_codeP is $bad_codeP \n";