perl -lne '$. == 1 || print join ",", (split/,/)[0 .. 3]' $TEMPDIR/rfp
+lan.1 >> $TEMPDIR/rfplan.2
[download]