. ../Defines
here=`pwd`
for i in usr/lib/perl5.003 usr/share/perl5;do mkdir -p $i
 (cd /$i;find . ! -type d|copy . $here/$i);done
find usr -type f|sort -u >files
gbrik perl2 files
find . -type d|xargs chmod 555
