This will be my attempts at learning Perl