Select Code to Download

$dir = "test";

mkdir $dir or die "Unable to create dir : $!" if not ( -d "$dir");
...
    print F $data;
    close F;
}

use Benchmark qw/cmpthese/;

$dir = "test";
...
               }
             }
});

D:\Perl\bin>perl test2.pl
        Rate   grep  while
grep  6.51/s     --  -100%
while 2667/s 40833%     --

D:\Perl\bin>