my $file=<>;