use strict;
use warnings;

while (<DATA>){
chomp;
my ($firstpartofsplit, $secondpartofsplit) = split /=/, $_;
print "<input type=text name =\"$firstpartofsplit\" value=\"$secondpartofsplit\">\n";
}
__DATA__
binary_app=/usr/bin/true
config_file=/etc/inetd.conf
MOD_NAME="ABC"