$| = 1; print "$$\n"; print 'x' x (500*1024);