#!usr/bin/perl

use feature qw/say/;
use Data::Dumper;

$Data::Dumper::Terse = 1;

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

say Dumper($hash);

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl

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

undef $/;
$data = <>;

$undump = undump($data);

die "'testing' not found!" unless($undump->{'testing'});

say $undump->{'testing'}->{'link'} // (die "'link' not found!");
say $undump->{'testing'}->{'bandwidth'} // (die "'bandwidth not found!");