use File::Find qw/ find /;

find \&names_and_sizes => '/GCN v 1.0/gcnnuevo';

sub names_and_sizes {
    print $_, " ", -s;
}