no warnings "once";

##</code><code>##

#!/usr/bin/perl -wT

{
  no warnings "once";
  $lions = 123;
}

$tigers = 456;

print "Hello world\n";