Help for this page

Select Code to Download

Select or download this

#!perl

...
          close F;
     }
}