Some Perl Scripts