use strict;
use warnings;

sub foo {
  1;
}

print foo, "\n";