proc addboobs {nick uhost hand chan text} {
        if {![string equal -nocase $chan "#chick3n"]} { return }
        set url [lindex $text 0]
        set fp [open "boobs.txt" a]
        puts $fp $url
        close $fp
        lappend ::_boobs_data $url
       puthelp "privmsg $chan :new link \"$url\" added successfully :D"
     }
}