~$ perl -le 'BEGIN { *CORE::GLOBAL::unlink = sub(@) { print "@_" } } unlink "aaa".."aad"'
aaa aab aac aad