#!/usr/bin/perl


use strict;
use warnings;
use utf8;

use Cwd qw(getcwd);


print( "Commit text: " );
my $s_commit_text = <STDIN>;

system( "git add ." );
system( "git commit -m \"" . $s_commit_text . "\" -a" );
system( "git status" );
system( "git push" );
