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();