Select Code to Download

Can't use string ("") as a subroutine ref while "strict refs" in use a
+t temp line 21.

#!/usr/bin/perl -w
use strict;
...

} # close closure
} # close BEGIN block