Help for this page
my $all = do {local $/; <IN>};
#!/usr/bin/perl -w ... a large bet, thinking it to be a sure win. At this point, some mistake is made, which actually makes the bet a loss.