$ perl a.pl 0
200
http://www.vitoco.cl/test-ref

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


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