set f_handle [open {|./script.pl >& script.log} a]

-----Some deleted code--------

if [catch {close $f_handle} ] {
    send_mail "Script had a problem, returned non-zero status!." 
} else {
    send_mail "Script ok."
}