package require uuencode

set data [uuencode::uudecode -file image.news]
foreach img $data {
    set f [open [file tail [lindex $img 0]] w]
    fconfigure $f -translation binary
    puts -nonewline $f [lindex $img 2]
    close $f
}