--- /dev/null
+#!/usr/bin/perl -w
+#
+#
+
+use strict;
+use lib '../include';
+
+use nms;
+use ios;
+
+
+my $t = nms::ios_connect('62.148.36.12', 'c', 'c', 'c');
+
+print STDERR "No such network 192.168.1.0\n" if nms::ios_getroute($t, "192.168.1.0") == 0;
+
+nms::ios_close($t);
+