Select Code to Download

#!/usr/bin/perl
#
...
    return @res;

}

if ((!$login_id)||($login_id ne $query{id})) {
    #no cookie of the right name or the cookie does not match the id s
+ent in the query
...

}