#!/usr/local/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);
use warnings;
print "0:グー 1:チョキ 2:パーのどれか入力\n";
my $hand1 =;
print "userの手\n";
if($hand1==0){
	print "グー\n";
} elsif($hand1==1){
	print "チョキ\n";
} elsif($hand1==2){
	print "パー\n";
} else {
	print "入力が間違っています\n";
}

print "computerの手\n";
my $hand2 = int(rand(3));
if($hand2==0){
	print "グー\n";
} elsif($hand2==1){
	print "チョキ\n";
} elsif($hand2==2){
	print "パー\n";
} else {
	print "入力が間違っています\n";
}
my @result=(
	["あいこ","勝ち","負け"],
	["負け","あいこ","勝ち"],
	["勝ち","負け","あいこ"],
);
print "$result[$hand1][$hand2]";