8 |
use ties; |
use ties; |
9 |
|
|
10 |
tie our $ip, 'ties', 'server_ip' => '172.16.10.1'; |
tie our $ip, 'ties', 'server_ip' => '172.16.10.1'; |
11 |
tie our $netmask, 'ties', 'natmask' => '255.255.255.0'; |
tie our $netmask, 'ties', 'netmask' => '255.255.255.0'; |
12 |
tie our $bcast, 'ties', 'bcast' => '172.16.10.254'; |
tie our $bcast, 'ties', 'bcast' => '172.16.10.254'; |
13 |
tie our $ip_from, 'ties', 'ip_from' => 10; |
tie our $ip_from, 'ties', 'ip_from' => 10; |
14 |
tie our $ip_to, 'ties', 'ip_to' => 100; |
tie our $ip_to, 'ties', 'ip_to' => 100; |