Greetings fellow monk ,

I think that your idea to try to do something with a native way to Perl is good , because it's a way to learn new things , and to make your chunk of code portable . But i learn that , in a tutorial at YAPC , sometimes it may be also a good idea to make something simple work simply and usable in a minute ...

For instance i do a beuah bad :

@badcode=`ifconfig`;
if (grep(/ppp0/,@badcode)){print"Connexion PPP OK !!!}
[download]

But it took me 30 secs to write and it works ! But i'm sure some other more cultured monk will give you a more elegant manner . And i , too , will gladly learn from it ...

the little one.