Select Code to Download

perl -we 'use strict; ...'

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