Granted I do not really know Perl well (this script is basically a combination of examples I've found to get something working) is it not poor form to use eval for things ? Is there a reason to use eval here ?