Select Code to Download

200
200
...
Back 1 OK
200
Back 2 OK

#!perl

...

  print("\n");
}

$ perl a.pl 0
200
...

200
http://www.vitoco.cl/test-ref/img1

$ perl a.pl 0
200
...
$ perl a.pl 1
Died at a.pl line 22.

    if ( $request->method eq 'GET' || $request->method eq 'POST' ) {
        $self->_push_page_stack();
    }

    $self->_push_page_stack();