#!/usr/bin/perl -wT
use strict;

my $x = 1;
my $y = '$x';

eval "$y = 6";

print "X:$x\n";
print "Y:$y\n";