#!/usr/bin/perl use Mail::Message; my $max_recipients=5; my $message = Mail::Message->read(\*STDIN); my @to = $message->destinations; if (($#to+1)>$max_recipients) { exit 0; } exit 1;