String Perl

#!usr/bin/perl
use warnings;
use strict;
printf "%o\n", 455;