quello che ti ho fatto è un esempio. La stringa e la $DBI::errstr sono due parametri che passi alla funzione e che raccogli tramite

my $label = shift; # stringa
my $err = shift; # $DBI::errstr

poi come li usi lo decidi tu.