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