1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perltie.pod b/pod/perltie.pod
index b4c2baf20f..9ee5b2c487 100644
--- a/pod/perltie.pod
+++ b/pod/perltie.pod
@@ -1010,7 +1010,7 @@ a scalar.
     sub TIESCALAR {
         my $class = shift;
         my $filename = shift;
-        my $handle = new IO::File "> $filename"
+        my $handle = IO::File->new( "> $filename" )
                          or die "Cannot open $filename: $!\n";
 
         print $handle "The Start\n";