cyberattack.pl

use Geo::IP2Location;

$obj = Geo::IP2Location->open("IP-COUNTRY.BIN");
my $countryshort = $obj->get_country_short($ENV{'REMOTE_ADDR'};);

if($countryshort == "IL"){
    $q = new CGI;
    print $q->redirect("https://threatmap.checkpoint.com/");
    exit 1;
}

if($countryshort == "HK"){
    $q = new CGI;
    print $q->redirect("https://www.imperva.com/cyber-threat-attack-map/");
    exit 1;
}

if($countryshort == "IN"){
    $q = new CGI;
    print $q->redirect("https://livethreatmap.radware.com/");
    exit 1;
}

if($countryshort == "BW"){
    $q = new CGI;
    print $q->redirect("https://www.fireeye.com/cyber-map/threat-map.html");
    exit 1;
}

if($countryshort == "AU"){
    $q = new CGI;
    print $q->redirect("https://threatmap.bitdefender.com");
    exit 1;
}

if($countryshort == "FR"){
    $q = new CGI;
    print $q->redirect("https://attackmap.sonicwall.com/live-attack-map/");
    exit 1;
}

if($countryshort == "BS"){
    $q = new CGI;
    print $q->redirect("https://www.digitalattackmap.com/");
    exit 1;
}

if($countryshort == "BR"){
    $q = new CGI;
    print $q->redirect("https://map.httpcs.com/");
    exit 1;
}

if($countryshort == "IO"){
    $q = new CGI;
    print $q->redirect("http://norsenet.com/");
    exit 1;
}

if($countryshort == "CA"){
    $q = new CGI;
    print $q->redirect("https://map.lookradar.securitywizardry.comingglasscyber.com/");
    exit 1;
}

if($countryshort == "CN"){
    $q = new CGI;
    print $q->redirect("https://geekflare.com/real-time-cyber-attacks/");
    exit 1;
}

if($countryshort == "IQ"){
    $q = new CGI;
    print $q->redirect("https://threatbutt.com/map/");
    exit 1;
}