Select Code to Download

use strict;
use warnings;
...
my $product = $x->copy();
$product->bfac();
print "p=$product\n";