open DAT, "ads.dat" or die "Can't open data file: $!";
    my @valid =
        grep $_->[3] =~ /^internal|partner$/,
        map [ split /\|/ ], <DAT>;
    close DAT or die "Can't close data file: $!";

    my $which = $valid[ rand @valid ];
    print "Location: ", $which->[2], "\n\n";