Help for this page
#!/usr/bin/perl use strict; use warnings; my $tmp_dir="/tmp"; opendir (DIR, $tmp_dir) or die $!;
while (my $file_name = readdir(DIR)) {print "$file_name\n";}
closedir(DIR);
0 1 2 3 4 5 6 7
Results (632 votes), past polls
