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

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

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