workaround for perl 5.12