#!/usr/bin/perl use strict; my $dir = "//server/share"; #or whatever my ($size)=( (qx{dir /s "$dir"})[-2]=~ /([\d,]+) bytes/ ); print $size;