use file_read;
my $a=0;
while(<STDIN>){
$a+=1;
}
print "$a";

##</code><code>##

package file_read;
while(<STDIN>){
print;
}
1;

##</code><code>##

perl fileread.pl </tmp/file