launch a script

1 Jun 2005


      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

Ciao