use strict;
use warnings;

sub foo {return 'foo';}

die "No bar here" if bar () ne 'bar';
print foo () . "\n";
print bar () . "\n";

sub bar {return 'bar';}