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

#!perl -d:Profile
# -*- perl -*-

sub foo {}
sub bar {}
sub baz {}

foo();
bar();
baz();

print "1..1\nok 1\n";