perl -Mfeature=:all CODE __END__