1 : use Cwd;
2 : 
3 : my $dir = getcwd;
4 : 
5 : opendir (DIR, $dir) or die $!;
6 : my @dir = readdir DIR;
7 : 
8 : foreach my $item (@dir) {
9 :    print "$item\n";
10: }
11:
12: closedir DIR;

##</code><code>##

1 : use Cwd;
2 : 
3 : my $dir = getcwd;
4 : 
5 : opendir (DIR, $dir) or die $!;
6 : my @dir = readdir DIR;
7 : my @perlFiles = grep /\.pl/, readdir DIR;
8 : 
9 : foreach my $item (@perlFiles) {
10:    print "$item\n";
11: }
12:
13: closedir DIR;

##</code><code>##

rewinddir(DIR);

##</code><code>##

1 : use Cwd;
2 : 
3 : my $dir = getcwd;
4 : my $dirPointer;
5 : 
6 : opendir (DIR, $dir) or die $!;
7 : $dirPointer = telldir (DIR);
8 : 
9 : my @dir = readdir DIR;
10:
11: seekdir (DIR, $dirPointer);
12: 
13: my @perlFiles = grep /\.pl/, readdir DIR;
14: 
15: foreach my $item (@perlFiles) {
16:    print "$item\n";
17: }
18:
19: closedir DIR;

##</code><code>##

1: use Cwd;
2:
3: print getcwd,"\n";
4: chdir("C:\\");
5: print getcwd;