use Attribute::Handlers;

sub foreach :ATTR {
  print "Just another Perl hacker,\n";
}

sub foo :foreach {}

foo();