#!/usr/bin/perl

use strict;
use lib '/var/www/perl/vbsite/packages';
my @out = `cd /var/www/test_repo; strace git commit -m 'msg' 2>&1`;

print "Content-type: text/plain\n\n";

print "ENVIRONMENT VARIABLES:\n\n ";
foreach( keys %ENV ){
	print "$_: $ENV{$_}\n";
}

print "OUTPUT:\n\n";

print "@out\n\n";