Select Code to Download

use warnings; use strict; use 5.006;

...
        _preclose($obj);
    }
}

sub WRITE { 
    warn Dumper(["WRITE",@_]); 
...
    my($obj) = @_;
    fileno($$obj{"handle"});
}

}

...
# note: perl will close handle when $APP goes out of scope

__END__