#!/usr/bin/perl --
use strict; use warnings;
use ...
use encoding qw/ cp1252 STDOUT cp1252 STDIN  cp1252 /;