Select Code to Download

 
my $router_data = [
    {
...
    },

];

for my $router ( @$router_data ) {

...
        print $test;
    }
}

$ ./test.pl status

...
16:48:30.421 UTC Thu Jul 4 2013
asr01#