#!/usr/bin/perl --

use strict;
use warnings;

Main( @ARGV );
exit( 0 );

sub Main {
    print Plath(
        join ':',
            '.',
            '/usr/local/bin',
            '/mingw/bin',
            '/bin',
            '/c/WINDOWS/system32',
            '/c/WINDOWS',
            '/local/bin',
            '/mingw/bin',
    ),"\n";
    print Plath( '.:/bin:/cygdrive/e/8660_qnx/1014/HY/data/install' ),
+"\n";
}

BEGIN {
    my $CygwinPaths = eval { require Filesys::CygwinPaths; 1; };
    my $Stat = qx!stat.exe -c %n /!;
    
    sub Plath {
        my( $path ) = @_;
        my @path;

        for my $p ( split ':', $path ) {
            if( $CygwinPaths ){
                push @path, Filesys::CygwinPaths::fullwin32path($p);
            } elsif( $Stat) {
                push @path, qx!stat -c %n $p!;
            } else {
                push @path, $p if $p =~ s!^/([a-z]{1,2})/!$1:/!;
                push @path, $p if $p =~ s!^/cygdrive/([a-z]{1,2})/!$1:
+/!;
            }
        }
        
        return join ';', @path;
    }
}
__END__
[download]