package B; use Carp qw(carp cluck croak confess); sub test { carp 'this is carp'; # cluck 'this is cluck'; # croak 'this is croak'; # confess 'this is confess'; # warn 'this is warn'; # die 'this is die'; } package main; B::test(); # Fatal…