PerlScript Error error '80004005'

(in cleanup) Can't call method "listado_productos" on an undefined value

/listadoproductos.asp, line 17