Help for this page

Select Code to Download

Select or download this

-    my $FH=*{$$self{FILEHANDLE}};
+    my $FH = $self->{FILEHANDLE};
+    $FH->format_name('FH');
-    format $FH = 
+    format FH =