diff --git a/gfwlist/gen.pl b/gfwlist/gen.pl
new file mode 100755
index 00000000..a9f21976
--- /dev/null
+++ b/gfwlist/gen.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+## ArchLinux install package via pacman: perl-net-cidr-lite
+use strict;
+use warnings;
+use Net::CIDR::Lite;
+my $cidr = Net::CIDR::Lite->new;
+while (my $line=<>) {
+    $cidr->add($line);
+}
+foreach my $line( @{$cidr->list} ) {
+    print "<item>$line</item>\n";
+}