push

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use autodie qw(:all);
use IPC::System::Simple qw(capturex systemx);

my $upstream = $ARGV[0] || "pjf";

my $branch = capturex(qw(git rev-parse --abbrev-ref HEAD));
chomp $branch;

systemx(qw(git push --set-upstream), $upstream, $branch);