#!/usr/bin/perl
#use warnings;
#use strict;

use PapaCat;
use Data::Dumper;

my $obj = new PapaCat();

$obj->pipe_test();