starter file in Perl