> perl -e 'print "jacket \rp\n";'
packet