$SIG{PIPE} = sub { print "WHoah got disconnected" };