#!/usr/bin/perl

use strict;
use File::Find;

find \&wanted, "./";

sub wanted {
        print "$File::Find::name ", (-s $File::Find::name);
        print "\n";
}