if ( $session )
    {
       $session->errmode('return');
         ### Login to privileged exec mode ###
        $session->login( Name => $uid , Password => $pawd );
       # $session->enable( $pawd );

##</code><code>##

foreach $entry (@iplist) {
    chomp ($entry);
    eval { &SDM };
    if($@) {
        # log the error
        open ( ERROR_LOG, ">>$dte-error.txt")
            or die "Could not open $dte-error.txt.\n";
        print "$entry: failed with $@ !\n";
        print ERROR_LOG "$entry: failed with $@ !\n";
        close ERROR_LOG;
    }
}