path: root/title.pl

#!/usr/bin/perl -w

use bytes;
print chr($_) for (0xff, 0xff, 0x40, 0xbc, 0xff, 0xbf);
undef $/;
$_ = <>;
print $_;