Perl scripts should use strict, and run -w.
No & in function call unless necessary.
Split long lines using hard return; try to respect the 72th