Help for this page
open(IN, "<".shift) or die;
perl tempo.pl ip.dat djb.dat
open(IN, "<ip.dat") or die;
perl tempo.pl djb.dat