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