perl reload

log.txt

> perl reload.pl                                                                    master!
router1
router1
router1
router1
router1
sig 
$DB_USER = 'router1';
router1
router1
router1
router1
router1
sig 
$DB_USER = 'router2';
router1
router1
router1
router1
router1
^C

MyConfig.pm

package MyConfig;

use strict;
use base 'Exporter';

BEGIN {
      our @EXPORT = qw($DB_USER );
}

our @EXPORT;
use vars @EXPORT;

$DB_USER = 'router2';

reload.pl

#!/usr/bin/perl -w
use MyConfig;
$SIG{ALRM} = sub { delete $INC{"MyConfig.pm"}; require MyConfig; MyConfig->import;alarm 5 ; print "sig \n"; };
alarm 5;
my $j=0;
while (1) {
    print $DB_USER, "\n";
    sleep 1;
    print `cat ./MyConfig.pm | grep 'DB_USER = '` if ((++$j)%5==0);
}