my $TestText = <$in>;