RosettaCodeData/Task/Empty-directory/Perl/empty-directory-1.pl

sub dir_is_empty {!<$_[0]/*>}