Help for this page
print "UID: $1\n" if ($url =~ /^http:.*\/ID=(.*)&MyToken=.*$/);
push (@uid_list, $1) if ($url =~ /^http:.*\/ID=(.*)&MyToken=.*$/);