open(DIR, './random_file');
print 'open : ', *main::DIR{NAME}, ' - ', *main::DIR{PACKAGE}, "\n";

opendir (DIR, '.');
print 'opendir : ', *main::DIR{NAME}, ' - ', *main::DIR{PACKAGE}, "\n";