Help for this page
ls -l $name | wc -l | sed 's/^ *//'
my $number = `ls -l $name | wc -l | sed 's/^ *//''