You'll need to give more specifics. The question, as asked, doesn't describe what a closed drawing refers to. It doesn't explain what is meant by "copy." And it doesn't explain what you have tried, where you are stuck, and how Perl is involved.