At the end of the script:

# Garbage collection, destroy the created object
$sel->DESTROY;
[download]