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

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


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

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