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

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

&test (925, "Mithos");

##</code><code>##

if ($gil != num){die "Gil should be a number.";}
if ($char != string){die "Your characters name should consist of letters only.";}