use warnings;
use strict;
use experimental 'try';

print foo();  # prints "Caught an error: Argh..."

sub foo {
	try {
		die( "Argh...\n" );
	}
	catch( $wow ) {
		return( "Caught an error: $wow" );
	}
}