#! perl
use strict;
use warnings;
my $commit;
print "***********************\n";
$commit = <>;
print "***********************\n";