my @changed_dirs = identify_changed_dirs();
print "Changed Directories:\n";
foreach my $i (@changed_dirs) {
    print "$i\n";
}