file sizes

[Paul Fontenot]

Hello,
        How can I get a summary of the file sizes in a directory with perl? Like a 
"du -s ." ?

-Paul

-- 
  4:00pm  up  6:54,  3 users,  load average: 1.66, 1.55, 1.47