Select Code to Download

#! perl -slw
use strict;
...
printf "%3s : %.3f%%\n", $_,
    sum( @{ $stats{ $_ } } ) / @{ $stats{ $_ } }
    for sort keys %stats;

theScript.pl /path/to/*.pdb

## For windows; something similar is possible on *nix
for %i in (\path\to\*.pdb) do @theScript.pl \path\to\%i