compter lignes STDOUT

Bonjour,
Comment compter le nombre de ligne dans un STDOUT?
Cela me permettrait de finaliser une boucle pour une intégration des données du STDOUT vers une base de donnée

code du STDOUT

Code:

1
2
3
4
5
6
7
 
format STDOUT=
@<<<<<<|@>>>>>>
$Photos, $Reference
.
 
write STDOUT;

partie sql

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
    my $req = $dbh->prepare("INSERT INTO serie VALUES(?, ?)");
<div class="bbcode_container">
	<div class="bbcode_description">Citation:</div>
	<div class="bbcode_quote printable">
		<hr />
 
			ici je veux compter le nombre de ligne de mon STDOUT et faire soit une boucle For soit un while
 
		<hr />
	</div>
</div>while () / For(){
  $req->execute( $Photos, $Ref)
    or die "requete impossible";
	}
 
$dbh->disconnect();
    }

merci d'avance ;)