#!/usr/bin/perl
use warnings;
use strict;

$main::cat = 'garfield';
{
 no warnings 'once';
 $main::dog = 'spot';
}