#!/usr/bin/env perl

use strict;
use warnings;

my $i = 0;

print "0 か 1 を入力して下さい。>>>";
$i = <STDIN>;

if ($i == 1 ){
  print "OK\n";
}else{
  print "1 以外が入力されました。\n";
}