Select Code to Download

#!/usr/bin/perl
use strict;
...

use Data::Dumper;
print Dumper \%interfaces;

$VAR1 = {
          'eth0:1' => '10.153.26.128',
...
          'eth0:2' => 'x.y.z.62',
          'lo' => '127.0.0.1'
        };