#!/usr/bin/perl -w

@Deploy = <>;
print scalar(@Deploy);

##</code><code>##

> ./t7.pl < t7.pl
4