FTP Klijent Skripta - Download jednog fajla

#!/usr/bin/perl    #Za OpenBSD
 
#Skripta sa download fajla sa FTP Servera, Jan/2014.
#Autor: http://milansmudja.com
 
use strict;            
use warnings;     
use Net::FTP;    
 
my $ftp_server = "ftp.openbsd.org";    
my $ftp_korisnik = "anonymous";  
my $ftp_sifra = "anonymous";            
my $ftp_direktorijum = "/pub/OpenBSD";  
my $ftp_file_dll = "ftplist";   
 
print "Uspostavljanje veze sa serverom: $ftp_server \n";
my $link = Net::FTP->new($ftp_server) 
    or die "Ne mogu ostvariti vezu sa serverom $ftp_server, proveri ping !\n";
 
$link->login($ftp_korisnik, $ftp_sifra) 
    or die "Login neuspesan za korisnika: $ftp_korisnik, proveri podatke !\n";
 
$link->cwd($ftp_direktorijum) 
    or die "Ne mogu promeniti direktorijum: \n";
 
print "Skidam fajl: $ftp_server$ftp_direktorijum\/$ftp_file_dll  \n";
$link->get($ftp_file_dll) or die "Download neuspesan: !\n";