print "  > ";
while (chomp( my $line = <STDIN>)){

	print "  [$line]\n";
}
print "  > ";