perl -ne "BEGIN{require 'crow.pl'}; main($_)" do.dat