my $shares = `net use`;
print $shares;