Select Code to Download

sub print_variable {
    local *print_variable = $_[0];
...
__END__
firstname = Edward
var = 1

$firstname = "Edward";
*surname = *firstname;
...
__END__
firstname = Edward
surname = Edward