Select Code to Download

my $md5 = new Digest::MD5();
$md5->add($$ , time() , rand(time) );
return $md5->hexdigest();

    my $IDFile = $args->{IDFile} or croak "Don't know where to store t
+he id";
    my $IDIncr = $args->{IDIncr} || 1;
...
    print FH $ID;
    close(FH) or return $self->set_error("Couldn't close IDFile=>$IDFi
+le: $!");
    return $ID;