use HTML::Entities;
use IO::Handle;
use IO::File;
+ use Net::Whois::Raw qw(whois);
+ use Business::CreditCard;
use String::Approx qw(amatch);
use Chart::LinesPoints;
use HTML::Widgets::SelectLayers 0.03;
#eorar
my $headers = $r->headers_out;
- $headers->{'Pragma'} = $headers->{'Cache-control'} = 'no-cache';
+ $headers->{'Cache-control'} = 'no-cache';
#$r->no_cache(1);
$headers->{'Expires'} = '0';