use PostScript::MailLabels; $labels = PostScript::MailLabels->new; $labels->labelsetup( Avery => $labels->averycode(8160), PaperSize => 'letter', Font => 'Times-Roman', ); my $addresses = [ map { chomp; [ split /:/ ] } ]; print $labels->makelabels( $addresses ); __END__ brian d:foy:5250 N. Broadway Suite 157:Chicago:IL:60640