perl -e print('foo')