Select Code to Download

        open my $file => "<", $ipfile or die "Open: $!";
        my $found;
...
        }
        print "Guest not found\n" unless $found;

        my $found;
        foreach (@ipfconts) {
...
        }
        print "Guest not found\n" unless $found;