First ever Perl Scripts