chomp(my $in=<STDIN>);
$in .= '.txt' unless $in =~ /\.txt$/i;