#!/usr/bin/perl -w
use strict;
my $thingy = "No Change\n";
print $thingy;

&change($thingy);

print $thingy;

sub change
{
  my $in = shift;
  $$in = "Changed\n";
}