sub PREVENT_USELESS_WARNING { my $t = $sub }