#!/usr/bin/eperl -mc _ dir <? $r=(rand(777));print "$r" !> ; close (DATA); !>
-_ [rNd] [] [lvls]
[ ]
../
"} else { if (-d "$f") { print "$f/
";} else { print "$f
";} } } !>