#!/usr/bin/perl -w
use strict;
use warnings;
use locale;
use Cyrillic;
chomp (my $interest = <STDIN>);
print_dir ($interest);
sub print_dir {
    chdir shift;
    foreach (glob "./*"){
        print $_ ,"\n";
        };
}