open(IN, "<".shift) or die;

##</code><code>##

perl tempo.pl ip.dat djb.dat

##</code><code>##

open(IN, "<ip.dat") or die;

##</code><code>##

perl tempo.pl djb.dat