# workaround.pm
BEGIN {
 push @INC, sub {
  my ($self, $filename) = @_;
  return \"1;";
 };
}
1;


##</code><code>##

$ perl -Mworkaround -MFoo::Bar -E' say "still alive"; '
still alive