#!/usr/bin/perl --

use strict;
use warnings;

my @hosts;

while(<>){
    push @hosts, $_;
}

if( @hosts ){
    print "Read hosts @hosts\n";
} else {
    die "usage: do_something [file]\n";
}
[download]