gistfile1.pl

sub main {
	my $ret = connect_bgpdata( $bgp_remote, $bgp_remote_port );
	die('connect failure') unless ( $ret == 0 );
	my $xml_msg;
	my ( @addrs, @peers, $hash, $timestamp, $asn );
	$Logger->debug('reading first message');
	while ( $xml_msg = read_xml_message() ) {
		warn 'test';
		if ( !defined($xml_msg) ) {
			$Logger->warn( get_error_code() . ": " . get_error_msg() );
		}
		parse_xml_msg($xml_msg);
		
		...
	}
}