sub error_handling
{
    my $data = shift;
    require Data::Dumper;
    die Data::Dumper::Dumper $data;
}

# or 

sub error_handling
{
    my $data = shift;
    require Data::Dumper;
    Data::Dumper->import;
    die Dumper $data;
}