use strict;
use warnings;
$in_file="e:/perl/practice/test.txt";
$out_file="e:/perl/practice/testout.txt";

open (OUT, ">$out_file") or die "cannot open $out_file\n";
open (IN, "<$in_file") or die "Can't open file\n";