The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package App;
use Moose;

sub run {
    while (<>) {
        sleep 3;
        print "App awake: $$\n";
    }
}

1;