Select Code to Download

#!/usr/bin/perl -wT

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