diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
index 8db7801c..bec7f507 100644
--- a/lib/App/perlbrew.pm
+++ b/lib/App/perlbrew.pm
@@ -1491,8 +1491,9 @@ sub installed_perls {
         } else {
             $orig_version = `$executable -e 'print \$]'`;
             if ( defined $orig_version and length $orig_version ){
-                open my $fh, '>', $version_file;
-                print {$fh} $orig_version;
+                if (open my $fh, '>', $version_file ){
+                    print {$fh} $orig_version;
+		}
             }
         }