Using hex function to convert octal number to Hexadecimal number
#!/usr/bin/perl -w print hex("0x30"), "\n";