git_clone.pl

#!/usr/bin/env perl
use strict;
use warnings;

my ($repo_url, $to) = @ARGV;
#my $repo_url = 'git://github.com/gmarik/vundle.git';
$repo_url || exit;
$repo_url =~ s/^git/https/;
$repo_url .= '.git' unless $repo_url =~ /\.git$/;
use File::Basename qw(basename);
my $basename = basename($repo_url);

my ($id) = $repo_url =~ m#github\.com/(.+)\.git#;

system('wget --no-check-certificate https://github.com/' . $id . "/zipball/maste
#system("unzip $basename");
#unlink $basename;