if (Win32::Lanman::NetShareEnum($_, \ my @ShareList))
{ 
  foreach my $Share (@ShareList)
  {
        my ($Remark, $Path, $NetName);
	$NetName = $Share->{netname};				
    if("" ne $Share->{Remark})
	 {$Remark="($Share->{remark})";}		  
    if("" ne $Share->{path})
	 {$Path=$Share->{path};} 
	else
         {$Path="No Permission to display";}	
        
        push (my @ShareList,
              name=>$NetName,
              remark=>$Remark,
              path=>$Path});
  foreach my $Item (@ShareList)
	{
       print "\n$Item->{name}";
	   print "\t$Item->{path}";
	   print "\t$Item->{remark}";
	}
  } 
}