$ diff /usr/local/sisis-pap/perl5.16.2/lib/site_perl/5.16.2/Net/INET6Glue/FTP.pm*
30c30
<                       LocalAddr => $ftp->sockhost,
---
>                       LocalAddr => 'fe80::250:56ff:feb6:5310%eth0'

##</code><code>##

Net::FTP=GLOB(0x83b0080)<<< 150 Here comes the directory listing.
Net::FTP=GLOB(0x83b0080)<<< 226 Directory send OK.
file: file
file: tr
Net::FTP=GLOB(0x83b0080)>>> EPRT |2|fe80::250:56ff:feb6:5310|35672|
Net::FTP=GLOB(0x83b0080)<<< 200 EPRT command successful. Consider using EPSV.
Net::FTP=GLOB(0x83b0080)>>> RETR file
Net::FTP=GLOB(0x83b0080)<<< 150 Opening BINARY mode data connection for file (12 bytes).
Net::FTP=GLOB(0x83b0080)<<< 226 File send OK.
Net::FTP=GLOB(0x83b0080)>>> QUIT
Net::FTP=GLOB(0x83b0080)<<< 221 Goodbye.