[Perl]

#!/bin/perl

 use File::Find;

 my $ByteCount=0;

 # Issue the find command passing two arguments

 # The first argument is the subroutine that will be called for each file in the path.

 # The second argument is the directory to start your search in.

 find(\&cleanup, "c:\\");

 print "Files are using $ByteCount bytes\n";

 # Subroutine that determines whether we matched the file extensions.

 sub cleanup {
   if ((/\.zip$/) || (/\.tmp$/) || (/\.TMP$/) || (/^~/) || (/\.chk$/) ){
      print "$File::Find::name\n";
          # Only piece of information we care about is the $size, which is in bytes.
         my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $therest) = stat($_) or die "Unable to stat $_\n";
         $ByteCount += $size;
   }

 }