String Perl

#!usr/bin/perl
use warnings;
use strict;
my $integer = 1427;
printf( "%#o\n", $integer );