open (my $foo, $0);
# binmode $foo, raw; # nothing changes with or without this line
print $foo;
close $foo;