Most people here would appreciate it if you show some effort in trying to solve your problem. In this case, it looks like you even did not read some beginner Perl books.