Select Code to Download

my $query = new MyPackage::Query("utf8"); 
my $query2 = new MyPackage::Query("euc-jp");

sub new {
    my $class = shift;
    $self->{input_enc} = shift;  
...
    bless($self, $class);
    return $self;
}