Select Code to Download

 ## sample records probabilistically
  next unless ( rand() > .95 );    # 1 of every 20

#!/usr/bin/env perl

use strict;
...


__END__

2020/05/29 18:07:49 INFO ./4.5.pho.pl 
2020/05/29 18:07:49 INFO 33.4 -112.1 0.346 
2020/05/29 18:07:49 INFO ============== 
...
  }
]