#!/usr/bin/perl -w
use strict;

use File::stat;

sub dodir {
	opendir(DIR,$_[0]) or die "Couldn't open $_[0] directory $!";
	my $dir=$_[0];
	print "\n Directory name is $dir";
	if ( $dir !~ /\/$/ ) 
	{ 
		$dir .= "/";
	}
	my @List=readdir(DIR);
	closedir(DIR);
	splice(@List,0,2);
	foreach my $file (@List) {
      $file = $dir.$file;
	 if( -d $file) { dodir($file); }
	 elsif (stat($file)->mode == 33188 ) { print "\n File $file is present in $dir"; print "\n File type: ",stat($file)->mode; }
	}
	
}

my $dir_name="/home";
if ( -d $dir_name) {
	dodir($dir_name); 
}