"git export URL" emulates "svn export URL"

git-export

#!/usr/bin/env perl
use warnings;
use strict;
use File::Basename;
use File::Path qw{remove_tree};

my $url = shift or die "Usage:\n  $0 repository\n";
my $basename = basename($url, '.git');
die "Directory $basename already exists. Remove it first" if -d  $basename;
my $out = `git clone --depth 1 $url 2>&1`;
die "Errors while cloning $url: $!" if $?;
die "Can't create directory $basename" unless -d  $basename;
chdir($basename) or die "Can't change to dir $basename";
remove_tree('.git') or die "Can't remove .git directory";