or use Modern::Perl 
written by our own Chromatic 
it's one line less code