Select Code to Download

sub retrieve
{
...
    }
    $message->close if $message;
}

sub retrieve
{
...
   $sent = thaw($sent);
   $message->close if $message->connected;
   return $$sent;

sub retrieve
{
...
   $connection->close if $connection->connected;
   return $$sent;
}