gistfile1.txt

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

my $source = shift;

unless ($source) {
    print "no source. exec goshell\n";
    exec("goshell");
}

my $go = $ENV{GOARCH} eq "386"   ? "8"
       : $ENV{GOARCH} eq "amd64" ? "6"
       : $ENV{GOARCH} eq "arm"   ? "5"
       : die "invalid GORACH=$ENV{GOARCH}";
(my $obj = $source) =~ s/\.go$/.${go}/;
my $compile = "${go}g";
my $link    = "${go}l";
my $cmd     = "./${go}.out";

system($compile, $source) == 0
    and system($link, $obj) == 0
    and exec($cmd, @ARGV);