$zipin = print "y\r\n";