Select Code to Download

#!usr/bin/env perl
open (test, "@ARGV");
...
}
close (test);

open(test, "<$ARGV[0]"); # what happens when more args?

    s/(th)/TH/gi;

    s/th/TH/go;

    tr/th/TH/;