Help for this page

Select Code to Download

Select or download this

sub open {
    @_ >= 2 && @_ <= 4 or croak 'usage: $fh->open(FILENAME [,MODE [,PE
+RMS]])';
...
    }
    open($fh, $file);
}