#! /usr/local/bin/perl
use Cwd;
$dir = cwd;
print "dir=> $dir\n";
opendir(THISDIR, "$dir");
@dirList = ;
print "OPEN @dirList\n";
$loc = telldir THISDIR;
print "Before Rewind Loc ==> $loc\n";
rewinddir THISDIR;
$loc = telldir THISDIR;
print "After Rewind Loc ==> $loc\n";
rewinddir THISDIR;