#!/usr/bin/perl

use feature qw(say);
use Data::Dumper;
use Data::Undump;

$hash = {
  'testing' => {
    'link' => "http://www.espn.com",
    'bandwidth' => "100",
    'r' => "2",
  },
};

$Data::Dumper::Terse = 1;

$undump = undump(Dumper($hash));

say $undump->{'testing'}->{'link'};
say $undump->{'testing'}->{'bandwidth'};