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

my($line) = <STDIN>;
if ($line ne 0) {
	

	print "You just wrote $line\n";
}