perl -ne 'print if /^F/' /tmp/frhtest/ADDC.bak > /tmp/frhtest/ADDC.$date