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();