Select Code to Download

$ ls -al pm_1208018_test_dir*
pm_1208018_test_dir:
...
total 0
drwxr-xr-x  2 ken staff  68 Jan 30 07:29 .
drwxr-xr-x 20 ken staff 680 Jan 30 07:43 ..

$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -E'

$ perle '
    open my $fh, "<", "pm_1208018_test_dir/pm_1208018_test_file";
...
dh is a dirhandle       # dh = dirhandle to "pm_1208018_test_dir"
ch is not a dirhandle   # ch = closed handle
uh is not a dirhandle   # uh = undefined handle (declared but uninitia
+lised)