C:\>perl -le "print('aaa'.chr(10));"
aaa
C:\>