#!/usr/bin/env perl
use warnings;
use strict;
use Proc::Background;

print "$0 => ", (-x $0 || 0), $/;

foreach ( qw(./com-hello.com ./com-hello ./c-hello.exe ./c-hello ./bat-hello.bat ./bat-hello ./cmd-hello.cmd ./cmd-hello ./js-hello.js ./js-hello C:/path-to/cpan-bugs/proc-bg/js-hello.js) ) {
    local $\ = $/;
    local $, = "\t";
    print STDERR $_;
    my $p = Proc::Background->new($_);
    if(!defined $p) {
        print STDERR $_, "didn't run";
        next;
    }
    print STDERR '-x:    ', ( (-x $_) || 0);
    print STDERR 'pid:   ', $p->pid;
    print STDERR 'alive: ', $p->alive;
    print STDERR 'wait:  ', $p->wait;
    print STDERR 'start: ', $p->start_time;
    print STDERR 'end:   ', $p->end_time;
    print STDERR '';
}

foreach my $ext (split /;/, $ENV{PATHEXT}) {
    local $\ = $/;
    local $, = "\t";
    open my $fh, '>', "x$ext" or die "x$ext $!";
    close $fh;
    print STDERR "x$ext", ( (-x "x$ext") || 0);
    unlink $fh;
}
__END__