Adding the perl bindings example.

bacnet-stack/demo/perl/example_readprop.pl

@@ -0,0 +1,16 @@
+use warnings;
+use strict;
+
+if (scalar(@ARGV) == 1)
+{
+    my $device = $ARGV[0];
+    my ($resp, $failed) = ReadProperty($device, 'OBJECT_ANALOG_VALUE', 0, 'PROP_PRESENT_VALUE');
+
+    print "status was '$failed' and the response was '$resp'\n";
+}
+else
+{
+    print "Must specify device instance number as an argument to this script\n";
+}
+
+1;