#!/usr/bin/perl

sub Foo {
  print "foo\n";
}

Bar();

1;