Help for this page

Select Code to Download


  1. or download this
    use strict; use warnings; 
use File::Find;
...

    for my $fn (@fns){ print $fn."\n";}
  2. or download this
    D:/goodies/pdhuck/down1/perl/monks/winsorts/a1
D:/goodies/pdhuck/down1/perl/monks/winsorts/u2
D:/goodies/pdhuck/down1/perl/monks/winsorts/u100
D:/goodies/pdhuck/down1/perl/monks/winsorts/u200