opendir DIR, <dir>
while (defined(my $file=readdir(DIR))) {
next unless $file=~/\.mp3$/i ;
push(@files,$file);
}works for me. Omanakuttan N, C,C++,Networking, perl, Linux Tata Elxsi Ltd, ph.8410 222 x 414. --------------------------------------------------------------- ' ...follow me' , the wise man said, but he walked behind ... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
