current dir   :/home/k/kh/prlfrg/dat/a
file unlink   :a/a.txt> at rmdirsimple.pl line 20.
ok... at rmdirsimple.pl line 21.
current dir   :/home/k/kh/prlfrg/dat/a
rmdir attempt :a
ok... at rmdirsimple.pl line 17.
current dir   :/home/k/kh/prlfrg/dat/b
file unlink   :b/b.txt> at rmdirsimple.pl line 20.
ok... at rmdirsimple.pl line 21.
current dir   :/home/k/kh/prlfrg/dat/b
rmdir attempt :b
ok... at rmdirsimple.pl line 17.