perl -F';' -ani -e 'print "delete from atable where afield = $F[0]\n"; print "quit\n" if eof' delete.sql