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

fight;
win;

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

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

##</code><code>##

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

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

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

fight;
win;

##</code><code>##

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

use subs qw ( fight win );

fight;
win;

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