#!/usr/bin/perl
$love{'all'}='fair';
&war;

sub war {
    print "All is fair in love and war.";
}