Select Code to Download

#!/usr/bin/perl -s

...
    close F;
  return 1;
}

[root@devel3 t]# cat run
#!/bin/sh
/usr/bin/perl -e 'use Test::Harness qw(&runtests); runtests @ARGV;' /s
+ome/path/t/*.t