$SIG{HUP} = sub { delete $INC{'MyRoutines.pl'}; require "MyRoutines.pl";};