use strict;
use warnings;

use Config::Tiny;
use MyConfig::P;

my $DATA;
open CONFIGFILE2, "imp1.txt" or die $!;

{
  local $/;
  $/ = undef;
  $DATA=<CONFIGFILE2>;
}
close CONFIGFILE2;

my $Config = Config::Tiny->new();
$Config = Config::Tiny->read_string( $DATA );
my $s = $Config->{_};

my $p = MyConfig::P->new( $s );
$p->sss();
$p->ppp();

##</code><code>##

package MyConfig::P;

sub new {
  my( $class, $val ) = @_;
  my $self = {};
  $self->{config} = $val;
  bless $self, $class;
}

sub sss {
  my $self = shift;
  print $self->{config}{Local_IP}, "\n";
}

sub ppp {
  my $self = shift;
  print $self->{config}{Local_Port}, "\n";
}

1;