my $var = 'test';
test ($var);

sub test {
  print "\$var = $_[0]\n";
}