gistfile1.pl

  my $from = [ 'links', 'vlans' ];
  my $what = [ 'links.ifname', 'vlans.vlanid' ];
  my $where = { 'links.neighbour' => { '='    => \"vlans.device",
                                       'like' => $neighbour . '%'
                                     },
                   'links.device' => $device,
              };
  my $order = '';

  my $result = $dbh->select($from, $what, $where, $order);