open OUT ">$output_file" or die $!; #### print OUT, "foo bar baz\n"; #### open my $out, '>', $output_file or die $!; #### push @foo = 'bar'; # aaaaargh!!! #### my $foo = $bar or $baz; print "You have $foo foo" . $foo==1?'':'s' . ":\n"; my @frobozz = map foo($_) or bar($_), @baz; #### eval { what() if $i == do { this() }; } die $@ if $@; my $coderef = sub { my $name = shift; return "don't worry $name, be happy\n"; } print $coderef->('Pustular'); #### eval { "require $foo; 1" } or die "Where's $foo?\n"; print $foo->happiness();