BEGIN { if ($] >= 5.008) { require 'open.pm'; 'open'->import(OUT=>":raw:perlio"); } }