The Foo Bar Is Closed

I hate to admit this, but it took me till the next day to get "foo bar."

I'm slowing down in my old age...

Mixter

A program that doesn't work that describes my emotions towards this picture:

#!/usr/bin/perl -w

if $foobar = "closed"
{
scream($foobar);
}
else
{
drink($foobar);
}

sub scream
{
print "I am yelling because this bar is closed!\n";
}

sub drink
{
drink $alcohol;
}

Why are you passing $foobar to subs that make no use of $@?

Also, you will always be drinking as there is no previous definition of $foobar.

With that said, I think I'll go have a
&drink();