Select Code to Download

# data file
(
...
           '10.0.0.138'=>4
        },
);

my $x=join "",<FILE>;
my %graph = eval $x;