@files = </home/user/*>;
@all_files = </home/user/* /home/user/.*>;
@all_files = glob "/home/user/* /home/user/.*";
opendir DIRH, "/home/user" or die "couldn't open: $!";
foreach (sort readdir <DIRH>)
{
print "one file in the directory is $_\n";
}
closedir DIRH;