Select Code to Download

my $str = "hello";
print ref \substr( $str, 0, 2 );

print ref {};
print ref bless {}, "MyObject";