small Perl Scripts