Redone in perl.