#!/usr/bin/perl -w

@users=('/home/zentara');

#put all user-root hidden files and hidden dirs into 1 temp dir
#this makes it easier to backup second level subdirs
foreach $homedir(@users){
opendir DIR, $homedir or warn "Cannot readdir $homedir:$!\n";
@files = grep !/^\.\.?$/, readdir DIR;
foreach (@files){push @movem,$_ if -f}
foreach (@files){push @movem,$_ if ($_ =~ m!^[.]!)}
print "@movem\n";
print "##############################################\n";
}
exit;