Select Code to Download

use strict;

...
        my $session = $serial->hexdigest();
        return $session;
}#-sub md5sid

use Data::UUID;
use constant IDGenerator => Data::UUID->new();

sub new_sid { IDGenerator->create() }