#!/usr/bin/perl -w

use strict;
use Mail::Message;

my $msg=Mail::Message->read(<STDIN>);

my @from=$msg->from;

print($#from,"\n");