#!/usr/bin/perl
use warnings;
use strict;
use File::Glob ':glob';

my @ary  = bsd_glob( "/home/dvergin/*" );
#my @ary  = glob( "/home/dvergin/*" );  # same result

print "[$_]\n" for @ary;