#!/usr/bin/perl

 
use strict;
use warnings;
 
print "Enter a number:";
my $input = <STDIN>;
chomp $input;
 
if ( $input == 47 );
   print "number is 47\n" 
else
   print " number does'not match . enter number again"