Select Code to Download

use warnings;
use strict;
...
    
    print "Visited $self->{me}\n";
}

Visited Object 1
Visited Object 2
Visited Object 3