Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    }
    print time, " test 2: func end\n";
}

my $data = $h[0]{data};

my $data = ${ $h[0]{data} };