Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
           my $name = $k."\*";
           my $x = `find . -name "$name" -print`;
}