Help for this page

Select Code to Download


  1. or download this
    #!/bin/perl -w
use strict;
...
truncate FH, tell FH;

close(FH)
  2. or download this
    #!/bin/perl -w
use strict;
...
}

close(FH)