print "Success!\n" if $retVal =~ s/showpos=1/showpos=${main::pageVar}1/;