Help for this page

Select Code to Download

Select or download this

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