Select Code to Download

#!usr/bin/env perl

...
close (test);

### Again, the parens are unnecessary. Omit them.

#!/usr/bin/perl -w

...
}

close Test;

#!/usr/bin/perl -w

...
    s/th/TH/gi;
    print;
}