#!/usr/bin/perl -w

$a = `find /tmp -type f 2> /dev/null| wc`;
($count, $junk, $junk) = split(" ", $a);
print "There are $count files\n";
