#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

# @system_call=('host' , "192.168.$help.1");$help = 'i need the $help
# variable to read a list of numbers from a file one at a time and print
# the results of the ip resolutions'; im just learning perl so if i dont
# articulate well enough its becouse im in /tmp/stupid for the moment.
# thanks. 

#-----------------------------------------------------------------------

open IN, 'my_file.txt' ;
while ( <IN> )
{
    chomp ;
    print `host 192.168.$_.1` if /\d+/ ;
}
close IN ;

exit ;

__END__