Help for this page

Select Code to Download


  1. or download this
    package Spy;
use strict;
...
 return $Obj->[1]=$Val;
}
1;
  2. or download this
    #!/usr/bin/perl -w

...
};

print "$Var2\n";
  3. or download this
    martijnb@xxx$ ./test
Stored 37332 in Var1
...
5
Fetched 666 from Var2
666