#! /usr/bin/perl

use feature qw (switch);
use Try::Tiny;

my $uv;
given (17) {
    when (3) { print "three\n"; };
    when (17) {
	try {
	    print "In try block\n";
	    die( "Substitute undefined variable $uv\n");
	    print "Still in try block\n";
	} catch {
	    print "We caught $_\n";
	};
    }
}