Select Code to Download

my ($owner) = grep s%^.*/(.*)$%$1%,
  $ct->argv(qw(des -fmt "%[owner]p"), "vob:$vob")->qx;
...

system('/usr/bin/ssh', '-l', $owner, $host, $binct, @op, @lbtype);