putting perl stuff in there