How about

my $blahblah = 5;

print "$blahblah\n";
fubar($blahblah);
print "$blahblah\n";

sub fubar {
  $_[0] = 4;
  print "$_[0]\n";
}
[download]