Given that you have a bunch of print statements, it would be interesting (and kinda helpful if you want us to help) to know where the print statements stop. (A copy of the output would help ...). If you don't see any, put

$|++;
[download]

at the top of your script. That will force output to be sent to the screen immediately, vs. being buffered.

I would also add a print statement immediately within the if (Win32::Lanman::NetshareEnum( ... )) { ... } block, just to make sure your memory issue isn't in that function call.

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.