#!/usr/bin/perl
use strict;
use warnings;

my $binary = 0b11001;
my $octal = 031;
my $dec = 25;
my $hex = 0x19;

print "binary:       $binary\n";
print "octal:        $octal\n";
print "decimal:      $dec\n";
print "hexadecimal:  $hex\n";

if ( $binary == $octal && $binary == $dec && $binary == $hex )
{
  print "The values are all equal\n";
}
else
{
  print "You should never get here, the world has come to an end!\n";
}