[PD] launch a script

[nico]

hi all

i would like to run this script from pd

#!/usr/local/bin/

  listbox .list -yscroll ".scroll set" \
     -width 20 -height 20
  pack .list -side left
  scrollbar .scroll -command \
     ".list yview"
  pack .scroll -side right -fill y

  if {$argc > 0} {
     set dir [lindex $argv 0]
  } else {
     set dir .
  }
  foreach i [lsort [glob *]] {
     .list insert end $i
  }

i've tried with [popen], but no result
is there's a way to launch this script

many thanks

nico