Help for this page

Select Code to Download


  1. or download this
    sub foo {
        my ($file, $info) = @_;
    ...
        print FH $info;
        close FH;
        }