my $num;
chdir $dir_to_check;
$num++ while <*>;

print "There are still files in $dir_to_check\n" if $num;