Select Code to Download

sub int_monitor (\$ ) :lvalue {
  my $var=shift;
...

(int_monitor my $bar) = 15;
print "$bar\n";

sub int_monitor (\$;$)  {
  my $var=shift;
...

int_monitor my $foo => 14;
print "$foo\n";