Select Code to Download

#!/usr/bin/perl
#use warnings;
...
my $obj = new PapaCat();

$obj->pipe_test();

package PapaCat;
use strict;
...
}

1;

package Kitty;
use strict;
...
);

1;