use 5.010_001;
use strict;
use warnings;
use diagnostics;

my $diagnosticsenabled;
BEGIN {
    $diagnosticsenabled = 0;
    eval {
        use diagnostics;
        $diagnosticsenabled = 1;
    };

}

if(!$diagnosticsenabled) {
    print "'use diagnostics' is not available, you will not get detailed error messages.\n";
} else {
    print "diagnostics module loaded!\n";
}