#!/usr/bin/perl -wT

use strict;


my $Path = {};

$Path->{'real'} = "/usr/";
opendir(THE_DIR, $Path->{'real'}) or die "Can't open dir $Path->{'real'}:$!\n";
close(THE_DIR);