use LWP::Simple qw(get);

my $data = get("ftp://ftp.slackware.com/pub/slackware/slackware-current/ChangeLog.txt");