Wicked Cool Perl Scripts

#31 Card Maker

Here's a fun project: If you have a digital camera and a laser printer, you can create your own greeting cards. A single 8.5×11 sheet of paper folded twice makes a wonderful birthday invitation or Christmas card. However, creating the card can be a little tricky.

The folded greeting card looks like this:

Here's the unfolded sheet:

Printing a page in four pieces can be tricky, especially when the contents of half of the pieces are upside down, but Perl is up to the task.

The Code

 1 use strict; 2 use warnings; 3 use Image::Magick; ...