1 files changed, 1 insertions, 0 deletions
diff --git a/pl2pm b/pl2pm
index c38dc730d6..db4e4ac34e 100755
--- a/pl2pm
+++ b/pl2pm
@@ -20,6 +20,7 @@ while (<>) {
     @export = ();
     print "$oldpack => $newpack\n" if $verbose;
 
+    s/\bstd(in|out|err)\b/\U$&/g;
     s/(sub\s+)(\w+)(\s*\{[ \t]*\n)\s*package\s+$oldpack\s*;[ \t]*\n+/${1}main'$2$3/ig;
     if (/sub\s+main'/) {
 	@export = m/sub\s+main'(\w+)/g;