package cucu; use strict; use Carp (); sub error { Carp::croak @_; } 1;