print the pop @INC to OUT instead of STDOUT

diff --git a/utils/splain.PL b/utils/splain.PL
index cae84a0..bbcdad6 100644 (file)
--- a/utils/splain.PL
+++ b/utils/splain.PL
@@ -38,7 +38,7 @@ $Config{startperl}
        if \$running_under_some_shell;
 !GROK!THIS!
 
-print <<'!NO!SUBS!';
+print OUT <<'!NO!SUBS!';
 
 BEGIN { pop @INC if $INC[-1] eq '.' }