dirent.pl

#!/usr/bin/env perl
use strict;
use warnings;
use IO::Dir;
use Data::Dumper;

( bless {}, __PACKAGE__ )->main();

sub main {
    my $self = shift;
    tie my %dir, 'IO::Dir', ".";
    foreach ( keys %dir ) {
        next if $_ =~ m/^\./;
        print $_, " ", $dir{$_}->size, "\n";
    }

    return 0;
}