Perl: общий способ определения размера блочного устройства

Я регулярно использую -s чтобы найти размер файла. Он работает кросс-платформой.

Есть ли аналогичный проверенный способ определения размера блочного устройства?

Мы не говорим о размере файловой системы или свободного места в файловой системе, но о размере фактического блочного устройства?

Linux и Unix - лучшая ОС в мире.