my $changed_dirs = identify_changed_dirs;
print "Changed Directories: ". @$changed_dirs ."\n";