Select Code to Download

#! perl -slw
use strict;
...
    }
    close O;
}

#! perl -slw
use strict;
...
}

printf "\n\nTook %.6f secs\n", time() - $start;

[16:39:37.79] C:\test\junk>..\junk63
Processing templ99.txt
...
Took 6.626883 secs

[17:25:35.03] C:\test\junk>