elsif ( $command eq "query" ) {
        my $target = get_prompt "Enter name to search";
        open my $loadfile, "<", "addressbook.db" or die "Couldn't open addressbook.db: $!";
        while ( defined( my $line = <$loadfile> ) ) {
                my @parts = split / \%: /, $line;
                if ( $parts[0] =~ /\Q$target\E/i ) {
                print $line;
                }
        }
        close $loadfile;
}