#!/usr/bin/perl -w

use Error qw(:try);
use MyError::SomeError;

try {
  throw MyError::SomeError('Throwing some error');
} catch MyError::SomeError with {
  print "Caught it\n";
};