#!/usr/bin/perl -w

my @files = qx/ls -l/;
##### or
# my @files = `ls -l`;

print for @files ;