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