use strict;
use warnings;

sub new {
    my $self = {};
    my $class = shift;
    $self->{input_enc} = shift;  
    
    unless (defined $self->{input_enc}) {
    $self->{input_enc} = "euc-jp";
    }

    #...

    bless($self, $class);
    return $self;
}