Получение текста ошибки из $ sftp-> get or do {...} PERL

Question

Я не программист на Perl, но мне нужно отладить ошибку.Я использую пакет Net: SFTP: Foreign.

Когда я пытаюсь получить файлы, происходит следующий вызов:

$ sftp-> get (source, destination) или do {print«что-то пошло не так».}

Эта строка возвращает «что-то пошло не так».Я хотел бы узнать, ЧТО пошло не так!Как извлечь причину сбоя?

Кстати, этот скрипт работал месяцами без ошибок.Сценарий очень надежный, я просто не знаю, как определить причину ошибки.

Answer 1

$sftp->get(source, destination) or warn "get() failed with " . $sftp->error . "\n";

Answer 2

$sftp->get($source, $destination)
   or print "something went wrong: " . $sftp->error . "\n";