Evaluated proc test url { set sid [imgur_get_sid]; . http://i.imgur.com/[last [regexp -inline {"hash":"(.+?)"} [unlist [http post http://imgur.com/upload "current_upload=1&total_uploads=1&gallery_submit=false&gallery_type=&forceAnonymous=false&sid=$sid&create_album=0&album_title=none&layout=b&catify=0&url=$url&edit_url=0"]]]].jpg }