mk_perl_link

#!/usr/bin/env perl
my $version = shift || '5.10';
my $path    = shift || '/opt/local/bin/';
while( <${path}*> ) {
    if( m/-?${version}$/ ){
        my $link = $_;
        $link =~ s/-?${version}$//;
        print "Linking $_ to $link\n";
        system(qq[ sudo ln -sfh $_ $link ] );
    }
}