#!/usr/bin/perl

print "Input integer number: ";
$d = <STDIN>;
chomp $d;

if ( $d != 7 )
   {
      print " Variable $d not equally 7\n";
   }

print " This is my program.\n";
print " This is a Perl\n program.\n";
print " This\n is\n my\n program.\n";
print " This\t is\t my\t program.\n";