perl.sh

* Fix up2date (doesn't work if _F_perl_sourcename is exist)