Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    }
}
print "cntr = $cntr\n";

$ echo 1 1 1 > foo.dat
$ ./923297.pl foo.dat
cntr = 4