gistfile1.txt

    # uncaught class
    class Dandy is Exception {};

    my ($naughty, $lived);
        {
            die Dandy.new();

            CATCH {
                when Naughty {
                    $naughty = 1;
                }
            }
        };
        $lived = 1;