#!/usr/bin/perl
use strict;
my $fn = './mysub.pl';
require $fn;
while (<STDIN>) {
	chomp;
	my $in = $_;
	if ($in eq 'load') {
		delete $INC{ $fn };
		my $code = "require '$fn'";
		eval $code;
		if ($@) {
			print "ERROR! Keeping old code.\n";
		} else {
			print "mysub replaced.\n";
		};
	};
	&mysub();
};

exit 0;