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

open(VARNAME, "varname");
my $varname = <VARNAME>;
chomp($varname);
print "$varname\n";
eval 'my $$varname = 10';
print "$r\n";