# Constructor for BGP-Update-Object
my $update = Net::BGP::Update->new($nlri,$nlri_ref,$withdrawn_ref);

# Update peer object
print "Update peer object\n";
$peer->update($update);