perl -we 'use strict; ...'

##</code><code>##

NO_ONCE_ONLY_WARNINGS_ZONE:
{
    no warnings qw(once);
    . . .
    use warnings qw(once);
}