opendir (DIR, "./Data") || die "Couldn't open directory ./Data: $!";

OR:

opendir DIR, "./Data" or die "Couldn't open directory ./Data: $!";