#!/usr/local/bin/perl $num = 26; $outstr = sprintf("%d = %x hexadecimal or %o octal\n", $num, $num, $num); print ($outstr);