sub int_monitor (\$ ) :lvalue {
  my $var=shift;
  print "$var\n";
  $$var
};

##</code><code>##

sub int_monitor:lvalue {
  my $var=\shift;
  print "$var\n";
  $$var
};