#/usr/bin/perl
$tt = 1;
mt($tt);

sub mt {

  my $t = shift;
  print " sub: 1 t = ${$t}\n";
  ${$timer}++;
  print " sub: 2 t = ${$t}\n";

}