#!/usr/bin/perl -w

use strict;
use warnings;
use File::Spec;

my $url = $ARGV[0];

die 'Usage: get_perl <URL to tar.gz>' unless $url;

my $file = $1 if $url =~ m!(perl\-\d+\.\d+\.\d+\.tar\.(gz|bz2))!;
die 'URL does not seem to be a Perl URL: ' . $url unless $file;
my $dir = $1 if $file =~ m!(perl\-\d+\.\d+\.\d+)!;

die 'Usage: get_perl <URL to tar.gz>', $/ unless $file;

my $HOME = $ENV{'HOME'} // '/home/stro';

my $SRC = File::Spec->catfile($HOME, 'perl', 'src');

mkdir $SRC;
chdir $SRC;
unless (-e $file) {
    system('wget ' . $url);
}

foreach my $opt ('s', 'm', 't') {
    system('tar xvf ./' . $file);
    system('mv ' . $dir . ' ' . $dir . '-' . $opt);
}

print 'Now run: ./new_build <ver>', $/;