The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!/bin/bash
perl test.pl 15
for (( i=1;i<=12;i++ )); do
perl test.pl $i $1 | grep '\.'
done