my little stupid script

[max . calvo]

Howdy;
I am in the beginning stages to get mod_perl in my head. This is my second script after the "Hello There" script. I am trying ot get my little stupid script to work. What I am trying ot do is fairly simple; I thought. I am just trying to get the server to print the numbers from 1 to 10. Here is the script that I have been working for 5 days. Please help and thank you in advnaced.

#!/user/bin/perl -w
use strict;
my $r = shift;
$r->send_http_header('text/plain');
for (my $i = 0 ; $i > 10; $i++) {
print "$i\n";
}
1;

thanks

-max