#!Perl -lp

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

BEGIN {@ARGV='dir.txt'}
$_=dir_size $_;

__END__