Select Code to Download

system(" cat $file | sort -t\\| +1 -2 > $file.out ") or warn "sort fai
+led $!\n";

system("sort -t\\| +1 -2 <$file > $file.out ") or warn "sort failed $!
+\n";