#!/usr/bin/perl use warnings; use strict; while ( my $file = glob '*' ) { print $file, "\n"; }