I tried opening the files in a directory and print thier names.
But it was thowing the error "unable to open directorty at t5.pl line 2."
Can u plz correct this error in below mentioned code.


#!/data/scoredev/perl
opendir(HOMEDIR,"c:\vin") || die("unable to open directorty");
@files=readdir(HOMEDIR);
closedir(HOMEDIR);

foreach $file (sort @files) {
print ("$file\n");
}

unable to open directorty at t5.pl line 2.