#!Perl -l

use strict;
use warnings;
use Win32::DirSize;

open my $fh, '<', 'dir.txt' or 
  die "Can't open `dir.txt': $!\n";

chomp, print dir_size $_ while <$fh>;

__END__