my $ls_output = `ls`;
my @files = split /\n/, $ls_output;