gugod · December 27, 2009 05:47
diff --git a/counter.pl b/counter.pl
 #!/usr/bin/env perl
 use common::sense;
 use Continuity;

 Continuity->new(port => 5000)->loop;

 my $counter = 0;
 sub main {
    my ($request) = @_;
    $counter++;
    $request->print("$counter\n");
 }

 # GET http://localhost:5000/
	#!/usr/bin/env perl
	use common::sense;
	use Continuity;

	Continuity->new(port => 5000)->loop;

	my $counter = 0;
	sub main {
	my ($request) = @_;
	$counter++;
	$request->print("$counter\n");
	}

	# GET http://localhost:5000/
No results found