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

echo "Lambda using select"
time perl tcp-lambda.pl
echo "Lambda using select, optimized"
time perl tcp-lambda-optimized.pl
echo "Lambda using AnyEvent"
time perl tcp-lambda.pl --anyevent
echo "Lambda using AnyEvent, optimized"
time perl tcp-lambda-optimized.pl --anyevent
echo "Raw sockets using select"
time perl tcp-raw.pl
echo "POE using select, components"
time perl tcp-poe-components.pl
echo "POE using select, raw sockets"
time perl tcp-poe-raw.pl
echo "POE using select, optimized"
time perl tcp-poe-optimized.pl