use PostScript::MailLabels;

$labels = PostScript::MailLabels->new;

$labels -> labelsetup(
			Avery       => $labels->averycode(8160),
			PaperSize   => 'letter',
			Font        => 'Times-Roman',
			Y_Adjust    => 1 / 16,
			X_Adjust    => 1 / 16,
			);


#print Dumper( $labels->{LABELDEF} );

$labels->editcomponent('first', 'name', 'no', 0, 'Helvetica' );
$labels->editcomponent('second', 'name', 'no', 1, 'Helvetica' );
$labels->editcomponent('third', 'name', 'no', 2, 'Helvetica' );
$labels->editcomponent('fourth', 'name', 'no', 3, 'Helvetica' );
$labels->editcomponent('fifth', 'name', 'no', 4, 'Helvetica' );

$labels->definelabel('clear');

$labels->definelabel(0,'first');
$labels->definelabel(1,'second');
$labels->definelabel(2,'third');
$labels->definelabel(3,'fourth');
$labels->definelabel(4,'fifth');
  
my $addresses = [ map { chomp; [ split /:/ ] } <DATA> ];

print $labels->makelabels( $addresses );
__END__
brian d foy:5250 N. Broadway Suite 157:Chicago IL  60640