This is all very low level beginning perl. What are you having problems with?

Maybe you could benefit from http://learn.perl.org/library/beginning_perl/