local $/;open 0;my $t=<0>;