The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/bin/sh
testdir=t
template=OBJ-TEST.pl
kinds=`cd $testdir >&/dev/null ; ls -1 [a-z]*.pl | sed -e 's/\.pl//g'`
echo "These are the kinds: $kinds"
for obj in box simple list html ; do
    for kind in $kinds ; do
        testfile=t/$obj-$kind.t
	if [[ -f $testfile ]]; then
	  rm -f $testfile
	fi
	( set -x ; ln -s $template $testfile )
    done
done