Experiments in perl?