diff --git a/lib/XML/RSS/Creator.pm b/lib/XML/RSS/Creator.pm
index 1736e4715..7301a9d01 100644
--- a/lib/XML/RSS/Creator.pm
+++ b/lib/XML/RSS/Creator.pm
@@ -1492,9 +1492,9 @@ sub strict {
 
 sub save {
     my ($self,$file) = @_;
-    open(OUT,">$file") || croak "Cannot open file $file for write: $!";
-    print OUT $self->as_string;
-    close OUT;
+    open my $OUT, '>', $file or croak "Cannot open file $file for write: $!";
+    print $OUT $self->as_string;
+    close $OUT;
 }