my $size = 0; for my $filename (glob("*")) { next unless -f $filename; $size += -s _; }