Select Code to Download

#!/usr/local/bin/perl -w
use strict;                                                           
+        use POSIX;
...
foreach my $n ($smb->readdir($fd)) {print $n,"\n";}
closedir ($fd);

Not enough space at ./smbtest.pl line 45.