{
local $@;
eval {
    lcroak "this is a sample error file";
};
ok($@, "lcroak terminates");
}