Приветсвую всех!

Написал простенький фтп чекер, хочу прикрутить к нему socks5, помогите пожалуйста! В доках не нашел никакой информации

#! /usr/bin/perl

use warnings;
use Net::FTP;

open(ALL,"list.txt");@all=<ALL>;close(ALL);
open(GOOD,">>good.txt");open(BAD,">>bad.txt");

foreach (@_){
$zap=$_;
$_=~s/ftp:\/\///ig;
($pair,$host)=split("\@",$_);chomp($host);
($user,$passwd)=split(":",$pair);chomp($user,$pass wd);
unless ($ftp=Net::FTP->new($host,Debug=>0,Timeout=>5)) { print BAD $zap;} else {
if($ftp->login($user,$passwd)){ print GOOD $zap} else { print BAD $zap}}
}}