in reply to How do I delete a directory without emptying it first?
use File::Remove qw(remove); remove \1, "dir"; [download]
gav^