#!/usr/bin/perl -w
use strict;

foo;
&foo;

sub foo {
	print "hi\n";
}