open(LS, 'ls -l|') or die "Cannot open 'ls -l' for reading\n";

while (<LS>)
{
    chomp; #Added after some thought.
    my $filename = (split ' ', $_)[-1];
    print "$filename\n";
}

close LS;