perl stuff