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