#!/usr/bin/perl -w

use strict;


# With a subroutine defined:

foo(); # Prints "Stuff"

&foo;  # This too.

foo;   # Blows up, no such sub... yet.

sub foo
{
    print "Stuff\n";
}

foo;   # Is also ok, prints "Stuff"


# With no subroutine defined:

bar(); # Compiles, blows up at runtime *if* executed

&bar;  # This one too

bar;   # Blows up at compile time