summary perl script
update functions