Help for this page

Select Code to Download

Select or download this

sub get_files_count {
    my ($dir) = @_;
    opendir my $dir_h, $dir or return 0;
...
}

print get_files_count('./');

Select or download this

sub get_files_count {
    my ($dir) = @_;
    opendir my $dir_h, $dir or return 0;
...
}

print get_files_count('./');