Help for this page

Select Code to Download


  1. or download this
    sub open_new {
        my ( $filename ) = @_;
    ...
    
    push @filestack, open_new( 'test1.txt' );
    push @filestack, open_new( 'test2.txt' );