gistfile1.pl

unshift @INC => sub {
    my ($us, $file) = @_;
    return unless $REDIRECT{$file};

    my $rewrite = $file;
    $rewrite =~ s/\.pm$/_stream.pm/;
    require $rewrite;

    $INC{$file} = $INC{$rewrite};

    return \";1;";
};