#!/usr/bin/env perl 
use strict;
use warnings;
use Path::Tiny;
use Data::Dump;

###### Output dhcp configuration file
my $dhcpcdfile = 'd.conf';

print "at start of program---\n";
my @rows = path($dhcpcdfile)->lines;
dd( @rows );
print "before loop---\n";
for my $line (@rows) {
     $line =~ s/^\s+//;           # remove leading
     $line =~ s/\s+$//;           # and trailing whitespace
     next unless length $line;    # ignore empty lines
     next if $line =~ /^#/;       # ignore comment lines
     my @fields = split /=/, $line, 2;
     dd( @fields );
}
print "after loop---\n";