#!/usr/bin/perl 
use warnings;
use strict;

my $inputline = 34; 
print "$inputline\n";