Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $ar = 'My'->new(2, 3, 4, 5, 7);
print ref $ar ? "Reference\n" : "Not a reference\n";
print $ar, "\n";