Some Basic Perl Scripts