Как проверить наличие сетевого интерфейса из скрипта на перле?

$ ls -l /sys/class/net/
total 0
drwxr-xr-x 3 root root 0 2007-03-15 06:59 eth0
drwxr-xr-x 3 root root 0 2007-03-15 06:59 eth1
drwxr-xr-x 3 root root 0 2007-03-15 06:59 lo

>ipv6? накуя оно мне, как выключить?

/etc/modprobe.d/aliases
alias net-pf-10 off
alias ipv6 off

open my $ifout, '-|', '/sbin/ifconfig';

if (grep /^ppp1/, <$ifout>)
{
  # интерфейс есть
}