use strict;
use warnings;

use subs 'system';
sub system { warn "this is not the real system\n" }

warn "about to test system\n";
system 'date';
warn "done testing system\n";
__END__
about to test system
this is not the real system
done testing system