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

fight;
win;

sub fight {
    print "Fighting!\n";
}

sub win {
    print "Winning!\n";
}