#!/usr/bin/perl --
use strict; 
use warnings;
use Win32::Unicode ;
my @files = file_list( 'C:/' );
my @dirs  = dir_list( 'C:/' ); 
...