If you want the script to be truly portable, I'd recursively unlink each file in the directory, and then rmdir the directory itself.

It's a bit slower than a system call, but it's perl-native.

-s.