#!/usr/bin/perl -w
use strict;
my $i = "test";

# this is now a package variable and requrires an explicit
# package name because of use strict
$main::test = "success";
{
    no strict 'refs';
    print "$$i\n";
}