#!/usr/local/bin/perl
use warnings;
use strict;

my $input = shift;
my $output = "/home/me/output.txt";
open (MYFILE, "$input");
while (<MYFILE>) {
       chomp;
       system("/home/me/ipinfo.pl $_ >$output 2>&1");
}
close (MYFILE);