sub mytie 
{ 
  ($name, $class) = @_;
  eval "tie $name, '$class', '$name';"; # UPG: I forgot the third parameter
}