String Perl

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