Carrier Opportunities in Perl?

Now i am join as a Testing Programmer in Perl..
I dont know the Carrier Opportunities in Perl..
so If anyone had know about the current status of the Perl means please give the answer to me..

Advance thanks for your reply….