Como es habitual en [[Perl]], hay más de un forma de hacerlo.