Help for this page
#!/usr/bin/perl ... binmode $out; print $out $_; }
while (<>) { binmode(ARGV), seek(ARGV,0,0), next if $.==1; ...