#!C:/Perl/Bin

$number = 5;

if ($number = 5)
{
      print "\n\n\$number is equal to 5\n\n";
}