Help for this page
my @files = <$dir/.* $dir/*>;
use File::Glob qw( bsd_glob ); my @files = ( bsd_glob("$dir/.*"), bsd_glob("$dir/*") );