c:\@Work\Perl>perl -wMstrict -le
"print join '', map sprintf('%03o', $_), unpack 'C*', qq{\r\n};
"
015012