#!/usr/bin/perl $cadena= $ENV{'QUERY_STRING'}; @cadena = split(/\&/,$cadena); $path_img=$cadena[0]; $imagenes=$cadena[1]; ################################################# ################################################# print "Content-type: text/html\n\n"; print "\n"; print "
\n"; print "