Perl - plackup したとき

use strict;
use warnings;
sub body { 'body' }
sub { [200, [], [ body ]] }

を plackup したときは問題ないが

use strict;
use warnings;
sub body { 'body' }

package Dummy;
package main;

sub { [200, [], [ body ]] }

にして plackup すると

Error while loading /Users/skaji/app.psgi: Bareword "body" not allowed while "strict subs" in use at /Users/skaji/app.psgi line 8.

というエラーがでる。なぜ？