Teach Perl sample code to enable L1 on SDH/SONET hardware
Correct comments and usage information for <unmap> C example
Teach the Perl example code the <map> and <unmap> commands