Exercise for perl.