ïâýåíïóëï÷óëéê óåíéîáò áóôòïæéúéëï÷
(ïóá)
áÒÈÉ×
";
local( @dirlist );
opendir DIR, "./";
while( $item = readdir DIR ){
next if( $item =~ /^\./ );
next unless( -d $item );
push @dirlist, $item;
}
closedir DIR;
if( @dirlist ){
print '- ';
foreach $key (sort {$a <=> $b} @dirlist){
print "
- óÅÍÉÎÁÒ #$key"; } print '
áÒÈÉ× ÐÏËÁ ÅÝÅ ÐÕÓÔ
\n"; } print '', hr(), qq'
Back to HOME
This page was designed by Sergey Nazin.
Send questions and comments to leng\@sai.msu.su '; # end_html();