local $^W = 0; # or even [no warnings 'redefine'] if you don't mind # restricting module to perl 5.6.0+