my $obscure = Business::CreditCard::Obscure->new(cardnum => '123456789012')->obscure();

##</code><code>##

use Business::CreditCard::Obscure qw(obscure);
my $obscure = obscure(cardnum = '123456789012');