Select Code to Download

use warnings;
use strict;
...
        print "Debugging $self->quz()\n" if $self->{debug};
    }
}

use warnings;
use strict;
...
use Y;

print "$Z\n";  # prints "from Y"