Select Code to Download

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

...
}

&test (925, "Mithos");

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