1 files changed, 2 insertions, 2 deletions
diff --git a/utils/pl2pm.PL b/utils/pl2pm.PL
index b7e1cea30d..19aef581ab 100644
--- a/utils/pl2pm.PL
+++ b/utils/pl2pm.PL
@@ -18,7 +18,7 @@ chdir dirname($0);
 $file = basename($0, '.PL');
 $file .= '.com' if $^O eq 'VMS';
 
-open OUT,">$file" or die "Can't create $file: $!";
+open OUT, ">", $file or die "Can't create $file: $!";
 
 print "Extracting $file (with variable substitutions)\n";
 
@@ -126,7 +126,7 @@ while (<>) {
 	$export_ok = "\@EXPORT_OK = qw(@export_ok);\n";
     }
 
-    if ( open(PM, ">$newname") ) {
+    if ( open(PM, ">", $newname) ) {
         print PM <<"END";
 package $newpack;
 use 5.006;