#!/usr/bin/perl
use strict;
use warnings;

my @files = glob("*"); 
map { print "files: $_\n" } @files;