Help for this page
#!/usr/bin/perl ... }, '.' );
/tmp>find2perl . -type l #! /usr/bin/perl -w ... -l _ && print("$name\n"); }