open(TL,"$path_to_lang/$thislang/imageproperties.txt"); while(){push(@LaNg,$_)} &exec_lang; ($image,$wid,$hei)=split(/&/,$param1); $image=~s!(http://.+?/)!$path_to_domain/!;$dom=$1; $wh=$wid."x".$hei; $img = Image::Magick->new; $x=$img -> Read ($image); $x=$img -> Resize($wh); $x=$img -> Write($image); print "Content-type: text/html\n\n"; print qq~~;