#!/usr/bin/perl
use strict;
use warnings;
my $sys="$^O";if ($sys eq linux) { $lim="clear";} else { $lim="cls"; }
print "hello";
my $ts=<STDIN>;
print "$ts";
system("$lim");