# reload.pl
use strict;
use warnings;

for (1 .. 2) {
    delete $INC{'ReloadModule.pm'};
    require ReloadModule;

    for (1 .. 3) {
        print ReloadModule::nextCount(), " ";
    }

    print "\n";
}

# ReloadModule.pm

use strict;
use warnings;
no warnings 'redefine';

package ReloadModule;

my $count = 0;

sub nextCount {
    return ++$count;
}

1;