my $t = <>;
chomp $t;