Show To Display Print Hidden Files Linux Unix Command

 sub dir {
        
        my $ftpdir=shift;
	#$my $current_folder = shift;
	my  @ all;

	chdir($ftpdir) or die("Cannot access folder $ftpdir");

	#Get the all files and folders in the given directory.
	my  @ both = glob("*");

	my  @ folders;
	foreach my $items ( @ both) {
		if(-d $items) { #Get all folders into another array - so that first the files will appear and then the folders.
			push( @ folders else { #If it is a file just put it into the final array.
			push( @ all,$item my $this_folder ( @ folders) {
		#Add the directory name to the return list - comment the next line if you don't want this feature.
		push( @ all,"$th calling this function for all the folders
		my $full_path = "$ftpdir/$this_folder";

  @ deep_items = dir($full_path); # :RECURSION:
		foreach my $items ( @ deep_items) {
			push( @ all,"$this_fol  @ all;
        }

        my  @ all  = dir("/home/systems/test")        foreach my $items ( @ all) { 
	print "--- $items ---\n";
         }