Needs["FeynCalc`"]

line1=(GSD[l]+m).GAD[μ].(GSD[l]+GSD[p]-GSD[k]+m).GAD[ν].(GSD[l]+GSD[p]+m)

line2=(GSD[l]+m).GAD[ν].(GSD[l]+GSD[k]+m).GAD[μ].(GSD[l]+GSD[p]+m)

denom1=FeynAmpDenominator[PropagatorDenominator[l,m],PropagatorDenominator[l+p-k,m],PropagatorDenominator[l+p,m]]

denom2=FeynAmpDenominator[PropagatorDenominator[l,m],PropagatorDenominator[l+k,m],PropagatorDenominator[l+p,m]]

OneLoop[l,numO5open1 denom1+numO5open2 denom2]