Select Code to Download

#!/usr/bin/env perl

...

print "There are " . scalar @fields .
    " fields in the line of which $NaNcount are NaN.\n";