perl program to list all jpg's in folder - help!!

ambasite

i am trying ot list all jpg's in folder - "/home/user/Pictures/misc" - when i run the program below it does not list anything, it does not read the folder set in $dir. any ideas? thanks.

#!/usr/bin/perl
$dir = "/home/user/Pictures/misc";
opendir (PHOTO, "$dir") || die "Cannot open directory $dir: $!";
while (readdir(PHOTO)) {
foreach $file (<*.jpg>) {
print "$file\n";
}
}
close (PHOTO);

ambasite

i'll get my coat..... :rolleyes:

#!/usr/bin/perl
@files = </home/user/Pictures/misc/*.jpg>;
foreach $file(@files) {
print "$file\n";
}

boars.ie

perl -e 'while(</blah/blah/*.jpg>){print "$_\n";}'

Isn't it in a manual btw?