There's more than one way to do it, so you never receive the definite answer with Perl.

But hey, if you're satisfied with the solution - then feel free to edit your header (as others have pointed out)