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

chomp(my $dir = <STDIN>);

my @files;

if (-d $dir){
   opendir (my $DIR, $dir);
   readdir ($DIR);    # ignore .
   readdir ($DIR);    # ignore ..
   
   @files = readdir($DIR);
   closedir($DIR);
}

foreach my $file (@files) {
   print "$file\n";
}