$ perl /tmp/t.pl 
3
15