$ftp->get($file) or $error_flag = 1;
$ftp->quit if $error_flag;
$ftp->delete($file) or $error_flag = 1;
$ftp->quit if $error_flag;

##</code><code>##

opendir( DIR, "$debug_ftp_directory/$directory_local" )
    or $error_flag = 1;
@files = readdir(DIR);
closedir(DIR);