#!/usr/bin/perl

use strict;
use warnings;
use Net::FTP;
use Filter::cpp;

use constant HOST => 'ftp.perl.org';
use constant DIR  => '/pub/CPAN';
use constant REMOTE_FILE => 'README';

my $ftp = Net::FTP->new(HOST, Debug => 1, Passive => 1) or die "Couldn't connect: $@\n";
$ftp->login('anonymous');
$ftp->cwd(DIR);
$ftp->ascii();
$ftp->pwd();

#define DEBUG

my $x = 'log_level';

my $log_level;
#ifdef DEBUG
    $log_level = 1;
#else
    $log_level = 3;
#endif

($log_level <= 3) and print "$log_level <= 3: \$x is \"$x\"\n";

$ftp->get(REMOTE_FILE) unless $log_level == 3;
print "Done\n" unless $log_level == 3;

$ftp->quit;