uid=1058(lname_login) gid=600(customers) groups=600(customers) Safe-mode: OFF
#!/usr/bin/perl $dir = "/home/ppublic_html"; opendir(DIR, $dir) || die "can't opendir ".$dir .": $!"; @files = grep {!(-d $dir.$_)} readdir(DIR); closedir DIR; print @files;