my $Dumper = UNIVERSAL::can('Data::Dumper', 'can')
             && 'Data::Dumper'->can('Dumper');
print $Dumper->($hashref) if defined $Dumper;