1.  #!/usr/bin/perl -w
2. 
3.  use strict;
4.  use File::Find;     
5. 
6.  open( my $report, '>', 'InventoryFile.txt' )
7.     or die "open failed: $!";
8.
9.  find(
10.    sub { print $report "$File::Find::dir/$_\n" },
11.    '//InstallBox/C'
12. );
13.
14. close( $report ) or die "close failed: $!";