http://qs321.pair.com?node_id=104388

#!/usr/bin/perl write $code_well, $but; if (&U ($choose, !2)) { use strict; } sub U { ($maybe, $sorry) = @_; }