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

use Config;

Main( @ARGV );
exit( 0 );

sub Main {
    my $sep = $Config{path_sep};
    my $pat = 'export PATH=%s$PATH';
    $pat = 'set PATH=%s%%PATH%%'  if $sep eq ';' ;

    printf "$pat\n", join $sep, (
        uniq(
            grep length,
            grep defined,
            map { $Config{$_} }
            qw' installsitebin installvendorbin installbin '
        ),
      ),
      '';
}
sub uniq (@) {
    my %seen = ();
    grep { not $seen{$_}++ } @_;
}

__END__

##</code><code>##

export PATH=/usr/bin:$PATH

##</code><code>##

set PATH=c:\perl\5.12.2\bin\MSWin32-x86-multi-thread;c:\perl\site\5.12.2\bin;c:\perl\5.12.2\bin;%PATH%

##</code><code>##

$ perl -V:installsitebin  -V:installvendorbin  -V:installbin  -V:installsitescript  -V:installvendorscript  -V:installscript
installsitebin='c:\perl\5.12.2\bin\MSWin32-x86-multi-thread';
installvendorbin='';
installbin='c:\perl\5.12.2\bin\MSWin32-x86-multi-thread';
installsitescript='c:\perl\site\5.12.2\bin';
installvendorscript='';
installscript='c:\perl\5.12.2\bin';

$ perl -V:installsitebin  -V:installvendorbin  -V:installbin  -V:installsitescript  -V:installvendorscript  -V:installscript
installsitebin='/usr/bin';
installvendorbin='/usr/bin';
installbin='/usr/bin';
installsitescript='UNKNOWN';
installvendorscript='UNKNOWN';
installscript='/usr/bin';