Small perl script that checks hidden services availability