~/pperl_programs$ cat data.txt
DEVICE=eth0
ONBOOT=yes
BOOTPROTO=static
TYPE=Ethernet
IPADDR=10.9.0.200
NETMASK=255.255.0.0
GATEWAY=10.9.1.254


~/pperl_programs$ perl 1.pl

~/pperl_programs$ cat data.txt
DEVICE=eth0
ONBOOT=no
BOOTPROTO=static
TYPE=Wifi
IPADDR=10.9.0.200
NETMASK=255.255.0.0
GATEWAY=10.9.1.254