plain perl webapp - won