30

30.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $i = 0;

print "1から10までの数字を入力して下さい。>>>";
$i = <STDIN>;

chomp $i;

if ($i == 5){
  print "5\n";
}else{
  print "5以外\n";
}