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

use POSIX qw/:sys_wait_h setsid/;

our %PIDS;

main:
{
    print "shell# ";
    
    while( my $in = <STDIN> )
    {
        chomp $in;

        pid_check(\%PIDS);

        if( cmd_check($in) )
        {
            new_process($in);
        }
        else
        {
            print "\nCommand not found: $in\n\n" unless cmd_check($in);
        }
    }
}


###################################################
# --- SUB's --- #

## Создать потомок
sub new_process
{
    my $cmd = shift;
    
    die "fork() failed" unless defined( my $pid = fork() );
    
    # потомок
    if( $pid == 0 )
    {   
        setsid();
        exec($cmd);
    }
    # родитель
    else
    {
        $PIDS{$pid} = 1;
    }
}

## Проверить наличие запрашиваемой программы
sub cmd_check
{
    my $cmd = shift;
    
    foreach my $p ( split /:/, $ENV{PATH} )
    {
        return "$p/$cmd" if -f "$p/$cmd";
    }
    
    return 0;
}

## Перепроверить ЖИЗНЬ процесса
sub pid_check
{
    my $r = shift;
    
    foreach my $p ( keys %{$r} )
    {
        my $kid =  waitpid( $p, WNOHANG );
        
        if( $kid == 0 ) { print "PID: [$p] is alive\n"; }
        else { print "PID: [$p] is dead\n"; }
    }
}