my $lines = do{
		my $file_name = 'in.txt';
		open my $fh, $file_name or die "$file_name: $!";
		() = <$fh>;	};

print $lines;