TIMTOWTDI Party? ;-)

print "\x{0001}";
print "\N{U+1}";
print "\N{START OF HEADING}";
print chr(1);
print v1;
print "x"^"y";
vec(my $x,0,8)=1; print $x;
[download]

Update: "x"^"y" only works if the new bitwise feature is off; it could be turned on implicitly by the -E switch or a use 5.028; or higher (thanks for pointing this out, davido!). When the bitwise feature is on, one has to use the new ^. operator instead. Also, \N{START OF HEADING} requires charnames to be loaded explicitly on Perls before 5.16.