String Perl

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