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

use subs qw ( fight win );

fight;
win;

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