#!/usr/local/bin/perl
$inputline = <STDIN>;
print( $inputline, $inputline );
