BEGIN{
    if( $] >= 5.006_000 ) {
        require warnings;
        import warnings;
        print "Warnings on: $hi\n";
    } else {
        $^W = 1;
    }
}
print "Warnings off: $hi\n";