Select Code to Download

perl -w -e 'use strict;my $t;
if (scalar (keys %{$t->{r}}))
...
print "t->{r} = $t->{r}\n"; 
'
t->{r} = HASH(0x80fbc50)

 perl -w -e 'use strict;my $t = undef;
my %p = %{$t->{r}};
print "t->{r} = $t->{r}
";
'