#!/usr/bin/perl

use strict;
use warnings;

use POSIX ();


print ("Enter the directory name and date as input arguments:");

chomp($which_directory=@ARGV[0]);
chomp($which_date=@ARGV[1]);
die("Nothing entered as directory path name\n" if ($which_directory eq "");
die("Nothing enetered as update date\n" if ($which_date eq "");


   opendir(DIR,$which_directory);
  
   my @dir = grep { !/^\.+$/ } readdir(DIR);

    foreach (@dir) 
    {
     
    -->Here I need to get all sub directories and then do a cd in each diectory

}