Select Code to Download

perl -le '$size += (-f $_ ? -s _ : 0) for (<*>); print $size'

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