open my $file, '<', $ipfile or die "Open: $!";