#!/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";
}


##</code><code>##

Can't use string ("No Change") as a SCALAR ref while "strict refs" in use at asdf.pl line 12