ディレクトリの削除

　rmdirでできます。

if (rmdir 'dat') {
	print "Delete.\n";
} else {
	print "rmdir Error: $!\n";
}

　削除しようとしているディレクトリ内にファイルやディレクトリがある場合はrmdirでは削除できません。そのような場合にはFile::Pathのrmtreeを使います。

if (rmtree(['dat'])) {
	print "Delete.\n";
} else {
	print "rmtree Error: $!\n";
}