perl -e '!-s&&unlink $_ for<$directory/*>'