Command Line Proxy Grabber

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
my $Grab_It = WWW::Mechanize->new();
   $Grab_It->get('http://www.atomintersoft.com/proxy_list_port_80');
        my @ips= $Grab_It->text() =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d{1,5})/g;
        foreach (@ips){
            my $proxy = $_;
            print "$proxy\n";
        }
   
#Code By Orang Kampung 2017