use FindBin;
require "$FindBin::Bin/routines.pl";