How to Discover and add Interfaces via Perl

Version 1

    Sample of how to add Discovered Interfaces for a node via Perl script