Script started on Fri Apr 14 03:00:50 2017
bash-3.2# { P=p2011ka ; diskutil list ; Ds=($(zpool status -Lv "$P" | perl -ne 'print STDERR ; /^config:/.../^\S/ and /\t\s+(\S+)/ and pprint $1')) ; zpool scrub -s "$P" ; zpool export "$P" && for d in "${Ds[@]}" ; do diskutil eject "/dev/$d" ; done ; } &M
Muname -v
Darwin Kernel Version 13.4.0: Mon Jan 11 18:17:34 PST 2016; root:xnu-2422.115.15~1/RELEASE_X86_64
bash-3.2# port version
Version: 2.4.1
bash-3.2# port list active and 'tk'port list active and 'tcl'
Warning: The 'list' action only shows the currently available version of each port. To see installed versions, use the 'installed' action.
tcl                            @8.6.6          lang/tcl
bash-3.2# port list active and 'tk'
Warning: The 'list' action only shows the currently available version of each port. To see installed versions, use the 'installed' action.
tk                             @8.6.6          x11/tk
bash-3.2# exit

Script done on Fri Apr 14 03:01:45 2017