#!/usr/bin/perl -w
use strict;
use Business::CreditCard qw();

Business::CreditCard::validate('4111111111111111')
  or die "The credit card number appears to be invalid\n";