Select Code to Download

sub RemoveSheep
{
...
                print "After Splice: " . @sheep . "\n";
        }
}

#!/usr/bin/perl -w

...
my $shepherd = new Shepherd(\$field, 200, 300);

$shepherd->FindSheep();