#!/usr/bin/perl
@files = `find @ARGV`;
for $file (@files) {
	chomp $file;
	print "$file\n" if -f $file;
}