#!/usr/bin/perl -w

use strict;
use feature 'say';

say scalar(glob('*'));
say scalar(glob('*'));

say scalar(glob('*')) for (1..2);