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