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

sub test {
	my ($gil, $char) = @_;
	print ("you have $gil for $char.");
}

&test (925, "Mithos");