Pasted

3 == 3 or die "Wrong condition";
3 != 2 or die "Wrong condition";
3 > 2 or die "Wrong condition";
3 >= 2 or die "Wrong condition";
3 < 5 or die "Wrong condition";
3 <= 5 or die "Wrong condition";
 
"Perl" eq "Perl" or die "Wrong condition";
"Perl" ne "Ruby" or die "Wrong condition";
"Perl" gt "C++" or die "Wrong condition";
"Perl" ge "C++" or die "Wrong condition";
"Perl" lt "Ruby" or die "Wrong condition";
"Perl" le "Ruby" or die "Wrong condition";