Perlスクリプトから sudo でコマンドを実行する

事象

Perl スクリプトから sudo で xentop を実行したら、

@xentopout = `/usr/bin/sudo /usr/sbin/xentop -bf -i 2 -d 2 2>&1`;

以下の通り怒られた。

sudo: sorry, you must have a tty to run sudo

対処方法

# visudo
#Defaults    requiretty