phillip@athens:/tmp$ perl -e 'use IO::Handle;print 1;'