package foo;
use strict;
use warnings;
sub bar {
	print "Works\n";
	}
1;

package reload;
use strict;
use warnings;

sub reload {
	my ($PM) = @_;
	delete $INC{"$PM.pm"};
	local $^W = 0;
	eval("require $PM;");
	}
1;

#Script
#!/usr/bin/perl -w
use strict;

use reload;

while(<STDIN>)
	print "Hit Enter.\n";
	&reload::reload("foo");
	&foo::bar();
	&reload::reload("reload");
	}