$call = `awk '$1 ~ /^F/ {print $0 }' /tmp/frhtest/ADDC.bak > /tmp/frhtest/ADDC.$date`;
system("$call");