http://www.perlmonks.org?node_id=1224890


in reply to Identifying Windows file share names

maybe
use IPC::Run3 qw(run3); run3 ["NET","VIEW","\\\\servername","/all"], undef, \$stdout; die $? if $?; print "Output:\n$stdout\neof\n";
untested