#!/usr/bin/perl
use strict;
use lib "/media/elex/UltraFit/Scripts/my-scripts/perl/modules";
use MyTime;

my $doc = <<DOC;
launch <option>
    * git - add, commit, push
    * mod - chmod a+x *.pl
DOC

sub git {
    my $now = &MyTime::ymdhms;
    system("git add -A");
    system("git commit -m '$now'");
    system("git push -u origin");
}

sub chmod{
    system("chmod a+x *src/*.pl");
}

my $argc = $#ARGV + 1;
my $argv1 = @ARGV[0];

if ($argv1 eq "git"){
    &git;
} elsif ($argv1 eq "mod") {
    &chmod;
} else {
    print $doc;
}