Select Code to Download

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

...
print "$varname\n";
eval 'my $$varname = 10';
print "$r\n";