Select Code to Download

#! perl -slw
use strict;
...
b 131
a 132
b 133

C:\test>junk
b 127 - a 123 := 4
b 131 - a 125 := 6
b 133 - a 129 := 4