Help for this page

Select Code to Download


  1. or download this
    sub mytie 
    { 
      ($name, $class) = @_;
      eval "tie $name, '$class', '$name';"; # UPG: I forgot the third para
    +meter
    }