sub files_in_dir
{
    my $dir = shift || '.';
    opendir my $dh, $dir or croak "opendir '$dir' - $!";
    grep { -f } readdir $dh;
}