#! /usr/bin/perl
use strict;
use warnings;

sub foo {
  print "I am foo().\n";
}

# call foo or nothing (visible) will happen
foo();