#!/usr/bin/perl -w @Deploy = <>; print scalar(@Deploy);