# Code:
    my $subroutine  = factorial;        # no strict 'subs'
    print $subroutine->(7), "\n";

# Output:
Bareword "factorial" not allowed while "strict subs" in use at strict-demo.pl line 13.
Execution of strict-demo.pl aborted due to compilation errors.