#!/usr/contrib/bin/perl -w

use strict;
my $a="5.0";
my $b="5";  
print "Are these variables equal as numbers? ",$a==$b,"\n";
print "Are the variables equal as strings? ",$a eq $b,"\n";
print "These variables are equal as strings\n" if($a eq $b);
print "These variables are equal numerically\n" if($a==$b);