First day learning PERL