You wrote:

opendir(DIR, "/opt/tmp/" or die "Cannot open dir");

whereas what you probably meant was:

opendir(DIR, "/opt/tmp/") or die "Cannot open dir";

Better would be:

opendir(DIR, "/opt/tmp/") or die "Cannot open dir: $!";

Perhaps better still would be DirHandle but YMMV.