open( INPUT, "<", $ARGV[0] ) or die "$ARGV[0]: $!\n";
my @code_lines = grep !/^\x27/, <INPUT>;