Advertisement
Advertisement
| 07.21.2008 at 06:19PM PDT, ID: 23583880 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: |
#!/usr/bin/perl $DIR = "C:/Documents and Settings/<username>/Temporary Internet Files"; opendir(DIR,"$DIR") die "Unable to open $DIR: $!"; @DIR = readdir(DIR); close(DIR); print @DIR; |