perl Try-Tiny