Perl script that periodically ping a few websites in order to keep a dial-up connection alive