#/usr/bin/perl
$foo = 42;
*bar = *foo;
print $bar,"\n";