#!/usr/bin/perl -w
use strict;
my $i = "test";
my $test = "success";
{
    no strict 'refs';
    print "$$i\n";
}