open(XX,"<test_two.pl");
my @test=<XX>;
close(XX);
my $xxx=join("",@test);
print $xxx;