PERL: Snippet which traverses from root folder to sub folder inside it

"#!/usr/bin/perl
use strict;

&smash("/archive");

sub smash {
my $dir = shift;
opendir DIR,
$dir or return;
my @contents = map "$dir/$_", sort grep !/^\.\.?$/, readdir DIR;
closedir DIR;
foreach (@contents) {
next unless !-l && -d;
&smash($_);
}
}" forums.devshed.com

Perl File Handling: open, read, write and close files

"open FILE, ">file.txt" or die $!;
print FILE $str;
close FILE;" perlfect.com

How do I install Perl modules?

"Installing a new module can be as simple as typing perl -MCPAN -e 'install Chocolate::Belgian'" cpan.org

NOTSOLVED: How to connect Wii via ad-hoc with notebook and share lan?

"Create a secure ad hoc WiFi network on Windows Vista*" intel.com