open(FILE, '-|', "$cat $file") || die "$!\n";