#!perl
use strict;
my $t0 = time;
open FH, '<', "dict.txt" or die "$!";
open OUT,'>','dict1.txt' or die "$!";
while (<FH>) {
  print OUT $_;
}
close FH;
print time-$t0;