sub get_file_sizes { 
  $directory_size = 0; 
  opendir (DIRECTORY, "./uploads/$username"); 
  @all_files = readdir (DIRECTORY); 
  closedir (DIRECTORY); 
  foreach $file (@all_files) { 
    ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) 
      = stat("$file"); 
    print "File: $file Size: $size kilobytes" unless ($file =~ /^\.+$/); 
  } 
 }

sub get_file_sizes {  
  my $directory_size = 0;  
  opendir (DIRECTORY, "./uploads/$username");  
 
  foreach (readdir DIRECTORY) {  
    # No need for all those extra variables. 
    # No need for quotes round $file. 
    my $size = (stat($file))[7];  
    print "File: $file Size: $size kilobytes" 
      unless ($file =~ /^\.+$/);  
    $directory_size += $size; 
  } 
  print "Total directory size: $directory_size\n"; 
 }