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

use autodie;

Main( @ARGV );
exit( 0 );

sub Main {
    Tango();
    Tango();
    Tango();
}

sub Tango {
    my $lsof = qq!pslist $$ 2>NUL!;
    print qx!$lsof!;
    open my($fh), q!-|!, q!ping localhost!;
    print qx!$lsof!;
    close $fh; 
    print qx!$lsof!;
    print qq!#################################^^^<< HANDLES\n!;
    print qq!                                 |||\n!;
}

__END__

##</code><code>##

Process information for NAME:

Name                Pid Pri Thd  Hnd   Priv        CPU Time    Elapsed Time
perl                712   8   1   23   2960     0:00:00.218     0:00:00.328
Process information for NAME:

Name                Pid Pri Thd  Hnd   Priv        CPU Time    Elapsed Time
perl                712   8   1   25   2968     0:00:00.234     0:00:00.406
Process information for NAME:

Name                Pid Pri Thd  Hnd   Priv        CPU Time    Elapsed Time
perl                712   8   1   23   2968     0:00:00.234     0:00:03.484
#################################^^^<< HANDLES
                                 |||
Process information for NAME:

Name                Pid Pri Thd  Hnd   Priv        CPU Time    Elapsed Time
perl                712   8   1   23   2968     0:00:00.234     0:00:03.562
Process information for NAME:

Name                Pid Pri Thd  Hnd   Priv        CPU Time    Elapsed Time
perl                712   8   1   25   2968     0:00:00.234     0:00:03.656
Process information for NAME:

Name                Pid Pri Thd  Hnd   Priv        CPU Time    Elapsed Time
perl                712   8   1   23   2968     0:00:00.234     0:00:06.718
#################################^^^<< HANDLES
                                 |||
Process information for NAME:

Name                Pid Pri Thd  Hnd   Priv        CPU Time    Elapsed Time
perl                712   8   1   23   2968     0:00:00.234     0:00:06.828
Process information for NAME:

Name                Pid Pri Thd  Hnd   Priv        CPU Time    Elapsed Time
perl                712   8   1   25   2968     0:00:00.250     0:00:06.921
Process information for NAME:

Name                Pid Pri Thd  Hnd   Priv        CPU Time    Elapsed Time
perl                712   8   1   23   2968     0:00:00.250     0:00:09.984
#################################^^^<< HANDLES
                                 |||