#!/usr/bin/perl

#~ use warnings;
#~ use strict;
#~ 
#~ my $modified_str = `git status | egrep "modified:\s+(.*[.pl|.pm])$"`;
#~ 
#~ my @files = [];
#~ 
#~ foreach ( <$modified_str> ) {
    #~ print $_;
    #~ my $result = '';
    #~ $result = `perl -c $1` if $_ =~ /modified:\s+(.*[.pl|.pm])$/i;
    #~ print $result;
    #~ return 2 if $result =~ /syntax error at/ig;
#~ }
#~ 
#~ return 0;
