print $fDest <$fSource>;

Reading from  <> (see readline) in the list context imposed by the argument list of print will read all lines from the filehandle. For reading just one line, use something like:
    print $fDest scalar <$fSource>;
to impose scalar context (see scalar).