fun perl stuff