#!/usr/bin/perl -w
use strict;

use Mail::CheckUser qw(:constants);

my @constants = @{ $Mail::CheckUser::EXPORT_TAGS{constants} };

foreach my $constant (@constants) {
  print $constant, " = ", eval($constant), $/;
}