Autoupdate script in perl.