Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
        print "$ip\n";
        print "System_ip = '$ip_store{$ip}' \n";
}

C:\Old_Data\perlp>perl t9.pl
11.0.0.1
...
System_ip = 'UEH11_system_ip'
11.0.0.25
System_ip = 'UEH111_system_ip'