#!perl -d:DProf
# -*- perl -*-

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

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

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