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

my @files = system "find . -ls";

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

##</code><code>##

1105134059    2 drwxr-xr-x   3 .... users        2048 Feb  5 09:40 .
1105135378    1 -rw-r--r--   1 .... users         506 Feb  3 10:54 ./test.pl
1105135090    1 -rw-r--r--   1 .... users          93 Jan 24 15:41 ./calendar.pl
0