perl et les erreurs systeme

Bonjour,

mon code ci-dessous marche nickel , le seul souci c'est que j'arrive pas à détecter les erreurs système en général et SFTP en particulier pour que je puisse les contourner.
si vous avez une solution n'hésiter pas à me la communiquer.
et merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
open(SFTP,"|$sftpcmd") or $ERROR=1;
        $logger->debug("$ApplicationName: Connexion SFTP au $host = $ERROR");
 
                if($ERROR==1)
                {
                        $errorInfos="Connexion SFTP au $host a echoue";
                        $logger->error("$ApplicationName: $errorInfos");
                        exit;
 
                }
                else{
                        $logger->info("$ApplicationName: Connexion SFTP avec succes au $host");
 
                        foreach $file (@archivedFile2)
                                {
                                        if(-f $file)
                                {
                                                $sftp_commands =
                                        "
                                                cd $STFA_dest
                                                put $file
                                        ";
                                                print SFTP $sftp_commands;
                                        $cpt += 1;
                                        }
                                }