Select Code to Download

#!/usr/bin/perl -w   
#
...
} else {
        print "-> different\n";
}

$VAR1 = 1990;
$VAR1 = '1990';
...
$VAR1 = 1990;
$VAR1 = 1989;
-> different

$VAR1 = 465;
$VAR1 = '465';
...
$VAR1 = 465;
$VAR1 = 465;
-> equal