RosettaCodeData/Task/Find-common-directory-path/Perl/find-common-directory-path-3.pl

my @paths = qw(/home/user1/tmp/coverage/test
               /home/user1/tmp/covert/operator
               /home/user1/tmp/coven/members);
print common_prefix('/', @paths), "\n";