#!/usr/bin/perl

use warnings;

$size = 0;
$temp = "";
$path_to_dir="/home/www";

$size,$temp = split(, `du -ks $path_to_dir`);
print $size;