The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/bin/sh

DIFF=`perl check_alloc.pl <test.in | diff test.out -`

if [[ $DIFF = "" ]]; then
  echo "test passed"
else
  echo "FAILED:"
  echo "\"$DIFF\""
fi