use strict;
use warnings;
use diagnostics;


use Net::FTP;

my $file = 'npulse-0.53p2.tar.gz';
my $host = 'ftp.ttm.bg';
my $user = 'anonymous';
my $pass = '-anonymous@';
my $dir  = 'pub/Linux/admin/';
my $ftp  = Net::FTP->new($host, Debug => 1);

$ftp->login($user,$pass);
$ftp->cwd($dir);
$ftp->get($file);
$ftp->quit;